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Chapter 1 : Introduction 



The Commodore 64 wins thousands of new friends every 
day all over the world. That is hardly surprising since the 
64 offers not only excellent performance, but also an 
excellent price to performance ratio. One can now purchase a 
Commodore 64 complete with disk drive for under 500 dollars. 
The 64 carries the price of an introductory computer, but it 
offers far more than just game playing or an introduction to 
computing. It offers the hobbyist an almost boundless tool 
with which to work and can also be used for small business 
and scientific applications. 

Here then is Tricks & Tips, our fourth book for the 
Commodore 64. Our experienced team of authors consisting of 
Klaus Qerits, Lothar Englisch, and Michael Angerhausen has 
again filled this book with programming tricks. The authors 
hope to provide ideas for your own programs through the use 
of countless examples and model programs. This book is 
intended to help you, the programmer, get more out of your 
Commodore 64. 
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Chapter 2 : Advanced Graphics 



2.1 Graphics on the Commodore 64 



Sooner or later every Commodore 64 user has the desire 
to work with the built-in graphics capabilities of this 
computer. Unfortunately, the instruction manual says little 
about the capabilities and possibilities that the Commodore 
64 offers. 

At this point, we want to take a more detailed look at 
the graphics possibilities and features. 

First one must distinguish between the normal graphics, 
i.e. the symbols of which are shown on the keys (the block 
or line graphics), the high-resolution graphics, and the 
sprites. Some computers offer block graphics and high- 
resolution graphics, but the sprites are something truly new 
on the Commodore 64. These sprites were previously found 
only on video arcade games. And now these same capabilities 
are offered to us by the Commodore 64. 

On the next pages we want to go over the three graphics 
modes. We will of course help you by illustrating the theory 
with many examples. 
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2.1.1 The block or line graphics on the keyboard 

This method of creating graphics on the Commodore 64 is 
the simplest and easiest. No addresses have to be calculated 
nor attention paid to any registers. One can create graphics 
directly from the keyboard and place them in the program 
while both are being developed. It is usually necessary to 
press two keys to obtain these symbols. If you look at the 
keyboard closely, you will see that almost every key has two 
graphics symbols on it in addition to the normal letter. The 
symbol or graphics character on the left side of the key is 
obtained by first pressing the Commodore (C=) key, holding 
this down, and then pressing the corresponding key with the 
desired graphics character. 

These characters can always be entered within a PRINT 
or INPUT statement. One might write 

100 PRINT " 

for example, and then press the keys C= and A. You now see 
the upper right-hand corner of a frame on the screen. To 
create an entire frame, the following input is necessary 
(still in line 100): 
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Press the shift and * keys 38 tines. You see a straight 
line extending from the corner of the frame on the same 
horizontal line. In addition, you have also learned that you 
can enter the graphics character shown on the right side of 
a key by pressing SHIFT along with that key. Now press the 
keys C= and S to complete the top part of the frame. At the 
end of line 100, enter the following: 



and press the RETURN key 

The next line can be entered as follows: 

110 PRINT " 

After this, press SHIFT and - one time, the space bar 38 
times, and SHIFT and - once again. At the end, enter 

it . 

» 

and press the RETURN key again. 

The second line of the frame is already done. The third and 
last line is written as follows: 

120 PRINT " 

and then C= and Z, SHIFT and * 38 times, then C= and X. Now 
we have the complete frame consisting of three lines. Enter 
these lines: 
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99 PRINT CHR$(147);: REM ERASE THE SCREBN 
132 A*=" 

13S REM A$ = 38 SPACES 

140 B*="-THIS LINE FILLS OUR FRAME COMPLETELY-" 

150 PRINT CHR$(19); 

160 PRINT CHR$(17);CHR$(29);A$; 

170 PRINT CHR$(19); 

180 PRINT CHR$(17);CHR$(29);B$; 

190 FOR 1=1 TO 1000: NEXT 

200 GOTO 150 

Today, many commercial programs use such frames to make 
the screen appear more professional and less cluttered. 

Naturally, there is another way of entering such 
graphics symbols. These symbols can all be obtained via the 
CHR$ function. Here is an example using our last program: 

100 A1$=CHR$(176): A2$=CHR$( 174) 

101 REM THE LEFT AND RIGHT-HAND UPPER CORNBRS 

102 A3$=CHR$(173): A4$=CHR$( 189) 

103 REM THE LEFT AND RIGHT-HAND LOWER CORNBRS 

104 H1$=CHR$(96) 

105 REM HORIZONTAL LINE 

106 H2$=CHR$(125) 

107 REM PERPENDICULAR LINE 

108 H3$=CHR$(32) 

109 REM SPACE 

110 Zl$=Al$ 

111 FOR 1=1 TO 38 

112 Z1$=Z1$+H1$ 

113 NEXT I 

114 Z1$=Z1$+A2$ 
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115 REM FIRST LINE OF THE FRAME 

116 Z2*=H2$ 

117 FOR 1=1 TO 38 

118 Z2$=Z2$+H3$ 

119 NEXT I 

120 Z2$=Z2$+H2$ 

121 REM SECOND LINE OF THE FRAME 

122 Z3$=A3$ 

123 FOR 1=1 TO 38 

124 Z3$=Z3$+H1$ 

125 NEXT I 

126 Z3$=Z3$+A4$ 

127 REM THIRD LINE OF THB FRAME 

128 PRINT Zl$; 

129 PRINT Z2$; 

130 PRINT Z3$; 

When you enter these new lines and run the program, you 
will get the same result as before. The advantage lies in 
the fact that programs written with such CHR$ functions are 
easier to read and change. 
2.1.2 The use of sprites 

Your Commodore 64 can do more that just draw simple 
lines or frames. It offers you graphics capabilities that we 
have only begun to describe, capabilities previously found 
only on coin-operated video gases. 

The Commodore 64 has eight movable graphics objects 
called "sprites." Each of these eight sprites can be moved, 
erased, or redefined via POKB commands, independent of the 
other sprites. In order to get the most out of sprite 
graphics, one must be acquainted with the corresponding 
registers in the Commodore 64. The complete register layout 
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can be found in the book The Anatoay of the Commodore 64. 

There are a variety of registers at our disposal for 
each sprite. It would be advantageous if you first 
experiaent with the sprites which you find in the Commodore 
User's Guide. 

The most important address to keep in mind when working 
with sprites is located at 53248. The built-in VIC (Video 
Controller) 6569 has a set of registers which are mapped to 
addresses starting here. In order to position a sprite, for 
instance, we must tell the VIC chip where we want it to draw 
the sprite. The register we use is register (having an 
address exactly equal to 53248). In this address we find the 
horizontal position and in register 1 (53249) the vertical 
position of the sprite. 

POKE 53248,160: POKE 53249,120 

Two POKBs suffice to set an entire sprite at a certain 
location on the screen. These two POKEs place the sprite in 
the middle of the screen. Registers and 1 serve for sprite 
1, registers 2 and 3 for sprite 2, and so on. Almost all of 
the registers work on this principle. Exact information 
about the manipulation of sprites can be found in The 
Anatomy of the Commodore 64. In the next pages you will 
learn how to create complex graphic images with minimum 
effort. 
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2.2 3D Graphics - BASIC Program 



At the beginning of this book we want to present you 
with a BASIC program that displays three-dimensional 
representations of functions on the screen with the help of 
the Commodore 64' s high-resolution graphics. The program 
uses the commands of a BASIC extension called ULTRABASIC-64; 
at the end you will find the necessary changes if you do not 
have ULTRABASIC-64 at your disposal. 

This program draws the function defined in line 100. The 
function can be drawn in one of three different ways: 

First, the function can be shown in a normal Cartesian 
(rectangular) coordinate system, in the same way you would 
draw the function on graph paper. Second, it is possible to 
represent the function in the polar coordinate (radius and 
length) system. Third and most interesting is three- 
dimensional representation. The function is rotated about 
the (vertical) Y-axis. Because of the large number of points 
that must be calculated, this method requires the greatest 
amount of time. 

Now a description of the program itself. First, you can 
select the means of representation (lines 40-70). For the 
Cartesian and polar plots you are asked for the function 
increment (line 260). This is the value by which the 
parameter of the horizontal axis is incremented after each 
calculation. Lines 270 and 280 ask for the scaling factors 
for the X and Y axes. This allows you to control the aspect 
ratio of the axes as well as the "magnification" factor. For 
the time being, enter 1 for both. Use zero for the 
horizontal and vertical displacements (lines 370-410). The 
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graphics mode is selected in line 430. The lines 450 to 560 
draw the axes and scales. The lines 680 to 790 draw the 
polar representation and lines 820 to 970 draw the 
rectangular graph. 

The three-dimensional plotting routine starts at line 
1010. You can again select the values for scale and 
position. For now, enter the suggested values of 20 and 90. 
The three-dimensional representation requires that the 
function in line 100 be calculated more than ten thousand 
times; the program takes between one half of an hour to 
several hours to do this. 

Run the program with various functions. Here are some 
functions which will yield interesting graphs. 

100 DBF FN H(Q) = COS (2*Q) + COS ((Q + BB)/16) 
100 DBF FN H(0) = SQR (ABS( .5*( 16-Q*Q) ) + l/(Q+4) 
100 DBF FN R(Q) = COS (4*Q) + 20/(Q*Q + 3) 

If you do not have ULTRABASIC-64, you must make the 
following changes and additions to the program: 



Line 5 POKE 56,32 : CLR 

Line 430 and 1400 GOSUB 2000 

Line 470 FOR A1=0 TO 199 : AX=F: AY=A1: GOSUB 3000 : NEXT 

Line 480 FOR A1=0 TO 319 : AX=A1: AY=E: GOSUB 3000 : NEXT 

Line 500 FOR A1=B-1 TO B+l: AX=YR: AY=A1: GOSUB 3000 : NBXT 

Line 520 FOR A1=E-1 TO E+l: AX=XL: AY=A1: GOSUB 3000 : NEXT 

Line 540 FOR A1=F-1 TO F+l: AX=A1: AY=YD: GOSUB 3000 : NEXT 

Line 560 FOR A1=F-1 TO F+l: AX=A1: AY=YU: GOSUB 3000 : NEXT 

Line 770 AX=XX: AY=YY: GOSUB 3000 

Line 900 AX=G: AY=YY: GOSUB 3000 

Line 1600 AX=X1: AY=Y1: GOSUB 3000 
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Line 1620 GOSUB 4000 : RETURN 

Line 2000 FOR Al=8192 TO 16191 : POKE A1.0 : NEXT 

Line 2010 FOR Al=1024 TO 2023 : POKE A1.16: NEXT 

Line 2020 POKE 53248+17, 27+32 : POKE 53248+24, 16+8 

Line 2030 RETURN 

Line 3000 OY=320*INT(AY/8)+(AYAND7) 

Line 3010 OX=8*INT(AX/8) 

Line 3020 MA=2*( (7-AX)AND7) 

Line 3030 AV=8192+0Y+0X 

Line 3040 POKE AV.PEEK(AV) OR MA : RETURN 

Line 4000 FOR A1=Y1+1 TO 199: AX=X1: AY=A1: GOSUB 5000: RETURN 

Line 5000 OY=320*INT(AY/8)+(AYAND7) 

Line 5010 OX=8*INT(AX/8) 

Line 5020 MA=2~( (7-AX)AND7) 

Line 5030 AV=8192+OY+OX 

Line 5040 POKE AV.PEEK(AV) AND (255-MA) : RETURN 

Programming the graphics functions in BASIC makes the 
program considerably slower as compared to programming using 
ULTRABASIC-64 for example. 
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10 PRINT" 4ICLR3 -CC/DN} GRAPHIC REPRESENTATION OF FUNCTIONS{C/ 

DN3 " 

20 PRINT " DEFINED IN LINE lOOtC/DN} " 

40 PRINT" {C/DN3- 1 - CARTESIAN PLOT" 

50 PRINT" CC/DN3- 2 - POLAR COORDINATES" 

60 PRINT" {C/DN3- 3 - 3D PLOT" 

70 INPUT"!:C/DN3- CHOICE: 1 <C/LF3- -CC/LF3- -CC/LF3- " SPL 

100 DEF FNR(Q)=C0S(Q)+C0S(2*0)+C0S<5*Q) 

210 IF PL=3 THEN 1010 

250 PRINT: PRINT 

260 INPUT "FUNCTION INCREMENT ="5 IK 

270 INPUT" {C/DN} FACTOR FOR X-AXIS =";S1 

280 INPUT" CC/DNJ FACTOR FOR Y-AXIS =";S2 

370 PR I NT "LEFT OR RIGHT SHIFT" 

380 INPUT "NUMBER FROM -130 TO 130 ";C 

400 PR I NT "UP OR DOWN SHIFT" 

410 INPUT "NUMBER FROM -90 TO 90 ";D 

430 HIRES 2,2 

450 E= 1 00+D : F= 1 60+C 

470 DRAW F,0,F, 199,1 

480 DRAW 0,E,319,E,1 

490 FOR XR=F TO 319 STEP 19*S1 

500 DRAW XR,E-1,XR,E+1,1 : NEXT 

510 FOR XL=F TO STEP -19*S1 

520 DRAW XL,E-1,XL,E+1, 1 : NEXT 

530 FOR YD=E TO 199 STEP 15*S2 

540 DRAW F-1,YD,F+1,YD,1 : NEXT 

550 FOR YU=E TO STEP -15*S2 

560 DRAW F-l,YU,F+l,YU,i : NEXT 

580 IF PL=1 THEN 820 

610 REM POLAR PLOT 

620 RD=n/180 : FOR G=0 TO 360 STEP IK : T=G*RD 

710 X=FNR<T)*COS(T) : Y=FNR (T) *SIN<T) 

730 XX=X*(19*S1)+F : YY=-Y*U5*S2)+E 

740 IF XX<0 OR XX>319 THEN 780 

750 IF YY<0 OR YY>199 THEN 780 

770 DOT XX, 199-YY, 1 

780 NEXT 

790 END 

820 REM CARTESIAN PLOT 

830 FOR G=0 TO 319 STEP IK 

840 X=(G-F)/(19*S1) : Y=FNR(X) 

850 YY=E-(Y*15*S2) 

860 IF YY<0 OR YY>199 THEN 960 

900 DOT G, 199-YY, 1 

960 NEXT 

970 END 

1010 REM 3D PLOT 

1020 PRINT" CCLRJ CC/DN3- {C/DNJ {C/DN3- <!C/RT3- <C/RT> <C/RT 3- VERTICAL 

ASPECT" 
1030 INPUT" {C/DN}<!C/DN3<:C/RT3-CC/RT} CC/RT3-40 TO 40, TYPICALL 
Y 20 "SN1 
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1040 PRINT" <C/DN> <C/DN> {C/DNJ {C/RT3- <C/RT> {C/RTJVERTICAL OFFB 

ET" 

1050 INPUT" {C/DNMC/DNMC/RTMC/RTMC/RTJ-SO TO 150, TYPICAL 

LY 90 "SN2 

1260 REM CONSTANTS A, B, C, D, E, F, G 

1280 A=144: B=2. 25: C=N1 : D=„ 0327: E=160: F=N2: G=199 

1400 HIRES 2,2 

1410 FOR H=-A TO A STEB B 

1 420 A A= I NT < . 5+SQR ( A*A-H*H ) ) 

1430 FOR BB=-AA TO AA: CC=SQR <BB*BB+H*H> *D 

1440 D1=FNR <CC) : DD=D1*C: B0SUB1520: NEXT: NEXT: END 

1450 GOTO 1450 

1 520 X=BB+H/B+E : Y=DD-H/B+F 

1530 X1=INT(.S5*X) : Y1=INT < . 9* <G-Y) ) : IFY<00RY>199THENRETURN 

1600 DOT XI, 199-Y1, 1 

1620 RETURN: MODE 2 : DRAW XI, 199-Y1-1 , XI , 0, 1 : MODE : RE 

TURN 

READY. 
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2.3 Color line graphics 



The following machine language program draws vertical 
or horizontal lines in color. This allows data to be 
represented on the screen with easily understandable 
graphics. Because the graphics are created with the normal 
screen characters, text and graphics Bay be mixed on the 
screen, allowing you to label graphs, for instance. The 
lines are eight points wide, just like a character. 

The machine language program is designed such that the 
length or height and color of the line can be easily 
controlled. The line is drawn at the current cursor 
position. In order to simplify the representation of a 
complete graphics image, the cursor is moved one position to 
the right after the output of a vertical line so that the 
next line can be drawn immediately (in a different color if 
necessary). After drawing a horizontal line, the cursor 
automatically moves one line down. 

The routine is called through an expanded SYS command: 

SYS H, L, C or 
SYS V, L, C 

where H and V are the starting addresses for the routines to 
draw horizontal and vertical lines, respectively. L is the 
length of the line in pixels (up to 320 for a horizontal 
line and 200 for a vertical line), and C is the color code 
(0 to 15). 

The machine language program begins on the following page. 
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LINE AODR CODE 



LABEL OPC OPERAND 



COMMENTS 



_— __ 


____ 




— — ~ 








OOOl 


cooo 






; COLOR LINE GRAPH 


0002 


cooo 






; HPLOT AND VPLOT 


0003 


cooo 






; 






0004 


cooo 






; 






0005 


cooo 






BETCOR 


EQU 


*B7EB 


0006 


cooo 






SCROUT 


EQU 


*E716 


0007 


cooo 






LBYT 


EQU 


*14 


0008 


cooo 






HBYT 


EQU 


LBYT+1 


0009 


cooo 






CURCOL 


EQU 


*D3 


0010 


cooo 






SETCOL 


EQU 


*EA24 


0011 


cooo 






SETCHR 


EQU 


*EA1E 


0012 


cooo 






ILLQUA 


EQU 


*B248 


0013 


cooo 






CHKCOM 


EQU 


*AEFD 


0014 


cooo 






CODE 


EQU 


*22 


0015 


cooo 






TMP 


EQU 


CODE+1 


0016 


cooo 






XREG 


EQU 


TMP+1 


0017 


cooo 






TMP1 


EQU 


XREB+1 


0018 


cooo 






COLOR 


EQU 


*F3 


OLOR 


RAM 












0019 


cooo 






CURRIB 


EQU 


*AB3B 


0020 


cooo 






ADR 


EQU 


*FD 


0021 


cooo 






LINELN 


EQU 


*D5 


0022 


cooo 






CHRADR 


EQU 


*D1 


0023 


cooo 








ORB 


*C000 


0024 


cooo 


20 


FD AE 


HPLOT 


J8R 


CHKCOM 


0025 


C003 


20 


EB B7 




JSR 


GETCOR 


0026 


C006 


86 


24 




STX 


XRE8 


0027 


C008 


A5 


15 




LDA 


HBYT 


0028 


COOA 


C9 


02 




CMP 


#2 


0029 


cooc 


BO 


42 




BCS 


ILL 


0030 


COOE 


OA 






ASL 




0031 


COOF 


OA 






ASL 




0032 


C010 


OA 






ASL 




0033 


con 


OA 






ASL 




0034 


C012 


OA 






ASL 




0035 


C013 


85 


23 




STA 


TMP 


0036 


C015 


A5 


14 




LDA 


LBYT 


0037 


C017 


48 






PHA 




0038 


C018 


4A 






LSR 




0039 


C019 


4A 






LSR 




0040 


C01A 


4A 






LSR 




0041 


C01B 


18 






CLC 




0042 


C01C 


65 


23 




ADC 


TMP 


0043 

N 

0044 


C01E 


65 


D3 




ADC 


CURCOL 


C020 


48 






PHA 




0045 


C021 


A8 






TAY 




0046 


C022 


C5 


D3 




CMP 


CURCOL 


0047 


C024 


FO 


13 




BEQ 


Tl 


0048 


C026 


C9 


27 




CMP 


#39 


0049 


C028 


90 


02 




BCC 


T2 


0050 


C02A 


AO 


27 




LDY 


#39 
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0051 


C02C 


20 


24 


EA 


T2 


JSR 


SETCOL 


j POINTER TO C 


DLOR 


RAM 
















0052 

K 

0053 


C02F 


A9 


AO 






LDA 


#*20+*B0 


; REVERSE BLAN 


C031 


20 


IE 


EA 




JSR 


SETCHR 


;SET CHAR AND 


COLOR 
















0054 


C034 


BB 








DEY 






0055 


C035 


C4 


03 






CPY 


CURCOL 




0056 


C037 


10 


F3 






BPL 


T2 




0057 


C039 


6B 






Tl 


PLA 






0058 


C03A 


A8 








TAY 






0059 


C03B 


6B 








PLA 






0060 


C03C 


CO 


28 






CPY 


#40 




0061 


C03E 


BO 


OB 






BCS 


DONE 




0062 


C040 


29 


07 






AND 


#7 




0063 


C042 


AA 








TAX 






0064 


C043 


BD 


53 


CO 




LDA 


TABLE, X 




0065 


C046 


A6 


24 






LDX 


XREB 




0066 


C04B 


20 


IE 


EA 




JSR 


SETCHR 




0067 


C04B 


A9 


11 




DONE 


LDA 


#17 


; CURSOR DOWN 


0068 


C04D 


4C 


16 


E7 




JMP 


SCROUT 




0069 


C050 


4C 


48 


B2 


ILL 


JMP 


ILLQUA 




0070 


C053 


20 


65 


74 


75 TABLE BYT *20,*65,*74, 


,*75 


0071 


C057 


61 


F6 


EA 


E7 


BYT *61,*F6,*EA, 


,*E7 


0072 


C05B 


20 


FD 


AE 


VPLOT 


JSR 


CHKCOM 




0073 


C05E 


20 


EB 


B7 




JSR 


6ETC0R 




0074 


C061 


A5 


15 






LDA 


HBYT 




0075 


C063 


DO 


EB 






BNE 


ILL 




0076 


C065 


86 


24 






STX 


XRE6 


; COLOR 


0077 


C067 


A5 


14 






LDA 


LBYT 




0078 


C069 


4A 








LSR 






0079 


C06A 


4A 








LSR 






0080 


C06B 


4A 








LSR 






0081 


C06C 


85 


23 






STA 


TMP 




0082 


C06E 


A5 


14 






LDA 


LBYT 




0083 


C070 


29 


07 






AND 


#7 




0084 


C072 


85 


25 






STA 


TMP1 




0085 


C074 


A5 


Dl 






LDA 


CHRADR 


;LINE ADDRESS 


0086 


C076 


IB 








CLC 






0087 


C077 


65 


D3 






ADC 


CURCOL 


;PLUS CURSOR 


COLUMN 
















0088 


C079 


B5 


FD 






STA 


ADR 




0089 


C07B 


A5 


D2 






LDA 


CHRADR+1 




0090 


C07D 


69 


00 






ADC 


#0 




0091 


C07F 


85 


FE 






STA 


ADR+1 




0092 


C081 


AO 


00 






LDY 


#0 




0093 


C083 


A6 


23 






LDX 


TMP 




0094 


C0B5 


FO 


20 






BEQ 


T3 




0095 


C0B7 


20 


C7 


CO 


T4 


JSR 


CLR 


; CALCULATE CO 


LOR ADDR 
















0096 


C08A 


A9 


AO 






LDA 


#*20+*80 




0097 


C08C 


91 


FD 






STA 


<ADR) ,Y 




0098 


COBE 


A5 


24 






LDA 


XRE6 


; COLOR 


0099 


C090 


91 


F3 






STA 


(COLOR) ,Y 


;SET CHAR AND 


COLOR 
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0100 C092 

0101 C094 

0102 C095 

0103 C097 

0104 C099 

01 05 C09B 

0106 C09D 

0107 C09F 
CHED 
010B C0A1 

0109 C0A3 

0110 C0A5 

0111 C0A7 

0112 COAA 

0113 COAC 

0114 COAF 

0115 GOBI 

0116 C0B3 

0117 C0B5 

0118 C0B7 
ST COL? 

0119 C0B9 

0120 COBB 

0121 COBE 

0122 COBF 

0123 C0C3 

0124 C0C7 
0123 C0C9 

0126 COCB 

0127 COCD 



AS FD 
38 

E9 28 
85 FD 
BO 08 
C6 FE 
AS FE 
C9 04 

90 12 
C6 23 
DO EO 
20 C7 CO 
A6 25 
BF 



BD 
91 FD 
A5 24 
91 F3 
A5 D3 
C5 D5 



CO 



LDA ADR 
SEC 

SBC #40 
STA ADR 
BCS T5 
DEC ADR+1 
LDA ADR+1 
CMP *4 

BCC T6 

T5 DEC TMP 
BNE T4 

T3 JSR CLR 
LDX TMP1 
LDA TAB2.X 
STA (ADR) ,Y 
LDA XRE6 
STA (COLOR) ,Y 

T6 LDA CURCOL 
CMP LINELN 



FO 03 

4C 3B AB 

60 T7 

20 64 6F 79 TAB2 

62 F8 F7 E3 

A5 FD CLR 

B5 F3 

AS FE 

4C 2A EA 



;NEXT LINE 



;TOP LINE RE A 



; COLOR 



; CURSOR IN LA 



BEQ T7 

JMP CURRIB 

RTS 

BYT *20,*64,*6F,*79 
BYT *62,*FB,*F7,*E3 

LDA ADR 

STA COLOR 

LDA ADR+1 

JMP SETCOL+6 



; CURSOR RI8HT 



ASSEMBLY COMPLETE. 
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Here is a loader program in BASIC for those who do not have 
an assembler or monitor at their disposal. 



100 FOR 1=49152 TO 49359 
110 READ X: 

POKE I,X: 

s=s+x: 

NEXT 

120 DATA 32,253,174,32,235,183,134,36,165,21,201,2 

130 DATA 176,66,10,10,10,10,10,133,35,165,20,72 

140 DATA 74,74,74,24,101,35,101,211,72,168,197,211 

150 DATA 240,19,201,39,144,2,160,39,32,36,234,169 

160 DATA 160,32,30,234, 136, 196,211, 16,243, 104, 168,104 

170 DATA 192,40, 176, 11,41,7, 170, 189,83, 192, 166,36 

180 DATA 32,30,234,169,17,76,22,231,76,72,178,32 

1 90 DATA 101,116,117,97, 246, 234 , 23 1 , 32 , 253 , 1 74 , 32 , 235 

200 DATA 183,165,21,208,235,134,36,165,20,74,74,74 

210 DATA 133,35,165,20,41,7,133,37,165,209,24,101 

220 DATA 211,133,253,165,210,105,0,133,254,160,0,166 

230 DATA 35 , 240 , 32 , 32 , 1 99 , 1 92 , 1 69 , 1 60 , 1 45 , 253 , 1 65 , 36 

240 DATA 145,243, 165,253,56,233,40, 133,253, 176,8, 198 

250 DATA 254, 165,254,201,4, 144, 18, 198,35,208,224,32 

260 DATA 199,192,166,37,189,191,192,145,253,165,36,145 

270 DATA 243, 165,211, 197,213,240,3,76,59, 171,96,32 

280 DATA 100,111,121,98,248,247,227,165,253,133,243,16 

5 

290 DATA 254 , 76 , 42 , 234 
300 IF S026696 

THEN PRINT "ERROR IN DATA ! ! " : 
END 
310 PRINT "OK" 
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Let us take a look at a possible use for these graphics 
routines. This example represents sales statistics 
graphically. 



100 REM THE MONTH-END TOTALS FOR THE YEAR 

110 REM ARE IN THE DATA STATEMENTS 

120 DIM U(12) 

130 REM READ THE DATA 

140 FOR 1= 1 TO 12 : READ U(I) : NEXT 

150 RBM DETBRMINE MAXIMUM VALUE 

160 MAX = 

170 FOR 1= 1 TO 12 

180 IF U(I) > MAX THEN MAX = U(I) 

190 NEXT 

200 V = 12*4096+5*16+11 : REM ADDRESS OF THE ML ROUTINE 

220 PRINT CHR$(147) : REM ERASE SCREEN 

230 FOR 1= 1 TO 21 : PRINT CHR$(17); : NEXT : REM CURSOR 

240 REM DRAW GRAPHICS 

250 FOR 1= 1 TO 12 

260 PRINT SPC(2); : SYS V, U(I)/MAX * 180 , I 

270 NEXT 

280 PRINT : PRINT 

290 REM WRITE MONTH NUMBER 

300 FOR 1=1 TO 12 

310 PRINT RIGHT$(" "+STR$( I) ,3) ; 

320 NEXT 

330 GET A$ : IF A$="" THEN 330 

400 REM SALBS DATA 

410 DATA 12000, 13500, 11000, 8000, 14000, 9000 

420 DATA 13800, 14000, 12750, 14000, 13800, 17200 
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Now let's examine a function with horizontal line 
graphics. 

The color code can be entered in line 100. The screen 
is then erased, the background color set to black, and the 
cursor placed in the second column. The function is 
calculated from -2.2 to 2.2 in lines 120 and 130, expanded 
to an easily representable size, and finally plotted with 
the SYS command. 

100 INPUT "COLOR" ;C: IF C<1 OH C>15 THEN 100 

110 H=12*4096 : PRINT CHR$(147)TAB(2) ; : POKE 53281,0 

120 FOR I=-2.2 TO 2.2 STEP .2 

130 SYS H,EXP(-I*I)*300,C : NEXT 
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2.4 Defining a character set 



A special feature of the Commodore 64 is the ability to 
place the character generator in RAM. This gives you the 
opportunity to define your own characters. 

How is a character defined? 

The shape of each character is determined by something 
called the character matrix, an array of eight by eight 
pixels. Each matrix point is determined by a bit in the 
character generator. Each character requires 64 bits or 
eight bytes for a complete definition. If a bit is zero, 
then the corresponding point in the matrix is not set, while 
a set bit indicates a set point in the matrix. If a bit in 
the matrix is set, then it appears on the screen. The 
following program displays the matrix of a character on the 
screen. The program uses the modified PEEK function from 
Section 9.5 — load or enter the program found there before 
you enter this one. 

100 PRINT CHR$(147):PRINT:PRINT:PRINT 

110 INPUT "PLEASE ENTER A CHARACTER " ; A$ 

120 PRINT CHR$(19)A$ : B=PEBK(1024) 

130 PRINT: PRINT: PRINT: PRINT 

140 CG = 13*4096 : REM START OF THE CHARACTER GENBRATOR 

150 REM DETERMINE IF UPPBR/GRAPHICS OR UPPBR/LOWBR MODE 

160 B = (PEEK(53248+24) AND 2) * 1024 

170 FOR 1=0 TO 7 

180 Z = USR (CG+B+8*C+I) : REM GET MATRIX A LINE AT A TIME 

190 FOR J=7 TO STEP -1 

200 A = Z AND 2~J 
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210 IF A THEN PRINT "*•*; : GOTO 230 

220 PRINT "."; 

230 NEXT 

240 PRINT 

250 NEXT 

260 RUN 



The program asks for the character whose matrix it 
should display. The ASCII code of the character is put into 
the variable B in line 120. Line 140 checks for upper/lower 
case or upper/graphics mode. In line 160 the starting 
position of the character definition matrix within the 
character generator is determined. Line 180 determines if 
the matrix point is set or not. An asterisk is printed if 
the point (bit) is set, while a period is printed if it is 
not. Enter a "T", for example, and you will receive this 
output: 



******* 



After you have seen what the matrix of an individual 
character looks like, we can proceed to define or redefine 
our own characters. To do this, we must copy the character 
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generator from ROM to RAN and then inform the operating 
system where the new character generator is. The screen 
memory at address $C400 (decimal 50176 to 51175) is shifted 
at the same time. This can be accomplished in BASIC with a 
POKE loop. We will again use the USR function from Section 
9.5. 

100 FOR 1=13*4096 TO 14*4096-1 

110 POKE 1+4096, USR(I) : NEXT 

120 POKE 53272,24 : POKE 56576,148 : POKE 648,196 

After RUNning this program you can define your own 
characters with the following program. The program prompts 
you for the character to be modified. You can then enter the 
character matrix, thereby redefining the character that is 
to be displayed. An asterisk indicates a set point and a 
period means the point is not set. When you are finished 
defining characters, enter the word "END" as the character. 



100 REM CHARACTER DEFINITION 
110 CB=14*4096: 

REM BASE OF THE CHARACTER GENERATOR 
200 INPUT "CCS3tCD3i:CD3CCD3CCR3CCR3CCR3CHARACTER ";A$: 

IF A*="END" 

THEN END 
210 PRINT "CCH3";A* 
220 C=PEEK < 1 2*4096+ 1 024 ) 
230 PRINT M CCD3CCD3CCD3CCD3CCD]CCD]CCD3CCR3CCRK.CR]i:CR3a.;R3 

01234567" 
300 FOR 1=0 TO 7 
310 PRINT Ij: 

INPUT A* (I): 
IF L.EN(A*(I>)08 
THEN PRINT "CCU3CCU3": 
SOTO 310 
320 NEXT 
400 B= (PEEK (53248+24) AND 2)*1024: 

REM UPPER CASE/SRAPHICS MODE 
405 AD=C6+B+C*8 
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4-10 FOR 1=0 TO 7: 

z=o 

420 FOR J=0 TO 7 

430 Z=Z-(MID*<A*<I> ,8-J, 1 )="*") *2"-J 

440 NEXT 

450 POKE AD-4-I,Z: 

REM CHARACTER 
460 POKE AD+1024+I,255-Z: 

REM RVS-CHARACTER 
470 NEXT 
480 GOTO 200 
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2.5 Modifying the character set with a joystick 



For certain applications it is often desirable to have 
special characters available which appear immediately upon 
pressing a key. Such things as Greek letters, often used in 
mathematical formulas, fall into this category. 

When you have a suitable application, you can first 
draw your characters in raster representation on a piece of 
graph paper and then POKE the appropriate values into the 
duplicate of the character generator, but this is rather 
tedious. 

Here is a small program which eases the development and 
definition of characters. It is necessary to use a joystick 
in control port 1 in order to use the program. 

The program makes two copies of the built-in character 
generator into RAM. A character is taken from the first copy 
and displayed as a sprite, once in regular size and again in 
double size so that it is easier to read. 

A flashing point (which we call the microcursor and 
which you can move with the joystick) appears on the screen. 

The desired action (drawing lines, erasing lines, or 
positioning the microcursor) is accomplished by pressing the 
fire button on the joystick. The current mode is displayed 
on the screen. 

Once the character is designed to your satisfaction, 
press the Fl key. This new character is placed into the 
alternate character set (second copy). To accept the 
character and leave it unchanged, press the 6 key. Now you 
can work on the next character. After you have edited all 
512 characters the program ends. 
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Why 512 characters? 

There are 128 printable characters in each display 
node, upper/lower case or upper/graphics node. The sane 
characters displayed in reverse bring the total up to 256. 
This gives a grand total of 512 characters for the two 
display nodes. The positions of the characters within the 
character generator can be found on page 132 of the user's 
guide for the C64. 

Before we discuss the program itself, you should know 
the significance of the variables and menory addresses used. 

First the variables: 

C base address of the first duplicate of the character to 

be displayed next 
CD base address of the transferred character in the second 

copy 
CP character position counter in the range 0-511 
JB condition of the button on the joystick 
JR position of the joystick 
JS address of control port 1 
MA counter for the operating node 
PO nicrocursor position within the addressed byte 
PP address of the nicrocursor within the sprite data of the 

nicrocursor 
PV innediate value of the byte of the sprite data, addressed 

by the joystick 
SB base address of the sprite data 

V base address of the video controller 

X x position of the sprites on the screen 
XJ x position of the nicrocursor 

Y y position of the sprite on the screen 
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YJ y position of the microcursor 



The addresses: 

56 high byte of the pointer to top of memory 
648 pointer to the start of video rara 
832 start address of the cassette buffer 

Because the cassette buffer is not used within the 
program, the machine language program is placed in it. 
50196 pointer for sprite 1 
50170 pointer for sprite 2 
53272 pointer for video ram and character generator within 

the video controller 
56576 This location contains the two bits which determine 
the 16K range for the memory addressed by the video 
controller. 



Here is a step-by-step description of the program: 

10 The top of memory is lowered because the first 
duplicate of the character set will be loaded 
here. 
30-233 Sprites 1 fc 2 are turned on and their color is 
set. The sprite pointers are loaded and sprite 
2 is switched to double size. 

The sprite data are first erased and the 
sprites are positioned in the approximate 
middle of the screen. 
1000-1010 The machine language program. 

For those who are interested, here is the 
program in assembly language: 
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SBI 

LDA #$33 
STA 1 
LDA #0 
STA $5F 
STA $5A 
STA $58 
LDA #$D0 
STA $60 
LDA #$F0 
STA $59 
LDA #$E0 
STA $5B 
JSR $A3BF 
LDA #$37 
STA 1 
CLI 
RET 



disable interrupts 

make character generator available 



old block-start low 
old block-end low 
new block-end low 

old block-start high 



new block-end high 

old block-end high 
block shift routine 



allow interrupts 
back to BASIC 



1020-1040 The machine language program is put into the 
cassette buffer and executed — two duplicates 
are made of the character generator. 
1060 The operating system is informed of the changes 
made. The positions of the character generator 
and video RAM are changed (necessary because of 
the hardware). The characters you now see on 
the screen are already coming from copy 2. 

2000-2360 The characters are converted to sprites one 
after the other and can be changed. 
2380 After working on all of the characters, the top 
of memory is raised again because copy 1 is no 
longer needed. 
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4000-4070 The joystick is polled and program execution 
branches depending on the position of the 
joystick and condition of the fire button. 
5000-12040 The cursor position is modified based on the 
position of the joystick. 

13000-13200 The position of the joystick is use to modify 
the position of the microcursor and this point 
is alternately flashed on and off. 

20000-20080 Characters successfully completing editing are 
here transferred to the second copy. 



One feature of this program to note is that the 
modified character generator does not take up any BASIC 
storage space. It is placed in RAM under the kernal (that is 
to be taken verbatim since RAM and ROM overlap each other in 
the C64). 

The video RAM has been moved to address 49152, an 
address you should keep in mind if you do any POKBing to the 
video RAM. It is unfortunately determined by the hardware of 
the Commodore 64 that the shifting of the video RAM must 
accompany relocation of the character generator. This 
problem is explained in detail in our book The Anatomy of 
the Commodore 64. 



10 


POKE 56, 144: 




CLR 


20 


V=5324B: 




POKE 53281,0 


30 


POKE V+21,6: 




POKE V+40. l: 




POKE V+41, 1 


40 


POKE 50169, 16: 




POKE 50170, 16 


42 


POKE V+23,4: 




POKE V+29,4 


50 


FOR 1=0 TO 62: 




POKE 50176+1,0 




NEXT 
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The program listing: 



55 


X=150: 




Y=100 


223 


POKE V+4.X 


226 


POKE V+2,X-40 


233 


POKE V+16,0 


320 


POKE V+5,Y: 




POKE V+3.Y+19 


1000 


DATA 120, 169,51, 133, 1, 169,0, 133,95, 133,90, 133,88, 1 




69 , 208 , 1 33 , 96 , 1 69 , 240 


1010 


DATA 133,89, 169.224, 133,91,32, 191,163, 169,55, 133, 1 




,88,96 


1020 


FOR 1=832 TO 832+33 


1030 


READ A: 




POKE I, A: 




NEXT 


1040 


SYS 832: 




POKE 850, 160: 




SYS 832 


1060 


POKE 53272,8: 




POKE 56576, PEEK (56576) AND 252: 




POKE 648, 192 


1070 


PRINT CHR*<147) 


2000 


C=9»4096 


2020 


FOR CP=0 TO 511: 




PRINT CHR*(19)CP: 




SB=50176 


2040 


FOR 1=0 TO 7 


2060 


POKE SB+3*I,PEEK(C+I> 


2080 


NEXT I. 


2360 


c=c+8: 




SOSUB 4000: 




NEXT CP 


2380 


POKE V+21.0: 




POKE 56, 160: 




CLR : 




END 


4000 


XJ-O: 




YJ=0: 




JS=56321: 




8B=50176 


4020 


JR=:<255-PEEKUS) ) AND 15: 




Jtl=(255--PEEK(JS) ) AND 16 


4030 


IF JB 




[HEN MA=MA+l: 




IF MA>2 
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THEN MA=0 
4040 ON JR 

(SOTO 5000 , 6000 , 4020 , 7000 , 8000 , 9000 , 4020 , 1 0000 , 1 1 00 
0, 12000 
4045 IF PEEK (203)04 

THEM 4066 
4050 PRINT CHR* (19) CHR* (145) CHR* (18) "SAVE": 

BOSUB 20000 
4055 RETURN 

4066 IF MA=1 

THEN PR I NT CHR* < 1 45 ) CHR* < 1 45 ) CHR* (18)" SET " 

4067 IF MA=2 

THEN PRINT CHR* ( 145) CHR* ( 145) CHR* ( 18) " CLR" 

4068 IF PEEK (203) =26 
THEN RETURN 



4069 


IF MA=0 




THEN PRINT CHR* ( 145) CHR* ( 145) 


4070 


BOSUB 13000: 




GOTO 4020 


5000 


REM UP 


5020 


YJ=YJ-l: 




IF YJ<0 




THEN YJ=0 


5040 


SOSUB 13000: 




SOTO 4020 


6000 


REM DOWN 


6020 


YJ=YJ+l: 




IF YJ>7 




THEN YJ=7 


6040 


8QSUB 13000: 




GOTO 4020 


7000 


REM LEFT 


7020 


XJ=XJ-l: 




IF XJ<0 




THEN XJ=0 


7040 


GOSUB 13000: 




GOTO 4020 


8000 


REM LEFT UP 


8020 


XJ=XJ-l: 




IF XJ<0 




THEN XJ=0 


8040 


GOTO 5000 


9000 


REM LEFT DOWN 


9020 


XJ=XJ-l: 




IF XJ<0 




THEN XJ=0 


9040 


GOTO 6000 


10000 


REM RIGHT 


10020 


XJ=XJ+l: 




IF XJ>7 




THEN XJ=7 
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10040 GOSUB 13000: 

GOTO 4020 
11000 REM RIGHT UP 
11020 XJ=XJ+l: 

IF XJ>7 

THEN XJ=7 
11040 GOTO 5000 
12000 REM RIGHT DOWN 
12020 XJ=XJ+l: 

IF XJ>7 

THEN XJ=7 
12040 GOTO 6000 
13000 REM 
13020 PP=SB+YJ*3+INT(XJ/8> : 

PV=PEEK(PP> 
13040 P0=XJ~INT<XJ/8)»8 
13060 IF PV AND 2"M7-P0> 

THEN POKE PP, (PV AND (255-2- (7-PO) ) ) : 
GOTO 13100 
13080 POKE PP, (PV OR (2"- (7~P0) > ) 
13100 IF MA=1 

THEN PV=(PV OR (2"(7-P0) ) ) 
13120 IF MA=2 

THEN PV=(PV AND (255-2"~ (7-PO) ) ) 
13200 FOR 1=0 TO 50: 

NEXT : 

POKE PP.PV: 

RETURN 

20000 REM TRANSFER NEW CHARACTER 

20010 CD=C+20472 

20020 FOR 1=0 TO 7 

20040 POKE CD+I„PEEK(SB+3*I> 

20060 NEXT I 

20080 RETURN 
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2.6 Dividing the screen 



There is one special feature of the video controller in 
the Commodore 64 which makes some very interesting effects 
possible, but which is also seldom heard about: the raster 
interrupt. 

In order to clarify this feature to you, we must dig a 
bit deeper into how the video controller creates an image on 
the screen. 

The screen picture is constructed from individual 
lines, which you can see clearly if you take a close look at 
it. You can also recognize that a character is made up of 
eight lines. The video controller has a register which 
always contains the screen line currently being displayed. 
This is register 18, and is located at address 53248+18 = 
53266. If you examine the contents of this register using 

PRINT PEEK(53266) 

the value of the raster line displayed at the exact time the 
PEEK command was executed is shown. Since 25 screen images 
are displayed in one second, you cannot obtain these values 
quickly enough in BASIC and must therefore program in 
machine language. 

Another feature of the video controller is its ability 
to interrupt a program just before it displays a given 
raster line. To program a raster interrupt you must first 
allow the interrupt condition to actually interrupt the 
microprocessor (by setting the appropriate value in the 
interrupt register) and then setting the raster line number 
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at which the interrupt is to take place (by setting the 
value in register 18) . 

Interrupt service programming must be done in machine 
language. The following program is a short machine language 
program to illustrate the use of raster interrupts. 



LINE 


ADDR 


CODE 


LABEL 


OPC 


OPERAND 


0001 


033C 








IRQOLD 


EQU 


SEA31 


0002 


033C 








IRQVEC 


EQU 


*314 


0003 


033C 








RASTER 


EQU 


*D012 


0004 


033C 








IRQREB 


EQU 


*D019 


EO INTERRUPT 












0005 


033C 








MASK 


EQU 


*D01A 


LLER 


INTERRUPT MASK 








0006 


033C 








BORDER 


EQU 


*D020 


0007 


033C 








COLOR 


EQU 


*D021 


OLOR 
















0008 


033C 








ICR 


EQU 


*DCOD 


ER INTERRUPT 












0009 


033C 








RET IRQ 


EQU 


*FEBC 


INTERRUPT 














0010 


033C 








LINE1 


EQU 


*FB 


0011 


033C 








LINE2 


EQU 


*FC 


0012 


033C 








COLOR 1 


EQU 


*FD 


0013 


033C 








C0L0R2 


EQU 


*FE 


00 1 4 


033C 










ORG 


828 


FER 
















0015 


033C 


78 






SETUP 


SEI 




0016 


033D 


A9 


5B 






LDA 


#<IRQNEW 


0017 


033F 


8D 


14 


03 




STA 


IRQVEC 


0018 


0342 


A9 


03 






LDA 


#>IRQNEW 


0019 


0344 


8D 


15 


03 




STA 


IRQVEC+1 


0020 


0347 


A5 


FB 






LDA 


LINE1 


0021 


0349 


BD 


12 


DO 




STA 


RASTER 


FDR INTERRUPT 










0022 


034C 


AD 


11 


DO 




LDA 


RASTER- 1 


0023 


034F 


29 


7F 






AND 


#*7F 


IT 
















0024 


0351 


8D 


11 


DO 




STA 


RASTER- 1 


0025 


0354 


A9 


81 






LDA 


#*81 


Y RASTER 














0026 


0356 


8D 


1A 


DO 




STA 


MASK 


0027 


0359 


58 








CLI 




0028 


035A 


60 








RTS 





COMMENTS 



5 RASTER LINE 
IS FLAB FOR VID 

5 VIDEO CONTRO 

5 BORDER COLOR 
$ BACKGROUND C 

;FLA6 FOR TIM 

; RETURN FROM 



S CASSETTE BUF 



", RASTER LINE 



; CLEAR HIGH B 



; PERMIT IRQ B 
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0029 035B 



0030 035B 


AD 19 


DO 


IRQNEW 


LDA 


IROREG 


0031 035E 


8D 19 


DO 




STA 


IRQREG 


UPT FLAG 












0032 0361 


29 01 






AND 


#1 


0033 0363 


DO 07 






BNE 


SCREEN 


RASTER LINE? 










0034 0365 


AD OD 


DC 




LDA 


ICR 


UPT FLAG 












0035 0368 


58 






CLI 




INTERRUPT 










0036 0369 


4C 31 


EA 




JMP 


IRQOLD 


0037 036C 












0038 036C 


AD 12 


DO 


SCREEN 


LDA 


RASTER 


LINE 












0039 036F 


C5 FC 






CMP 


LINE2 


0040 0371 


BO OD 






BCS 


SECOND 


OR EQUAL 


SECOND VALUE? 






0041 0373 


A5 FD 






LDA 


COLOR! 


0042 0375 


8D 20 


DO 




STA 


BORDER 


0043 0378 


8D 21 


DO 




STA 


COLOR 


0044 037B 


A5 FC 






LDA 


LINE2 


PT AT 2ND 


LINE 










0045 037D 


4C 8A 


03 




JMP 


EXIT 


0046 0380 


A5 FE 




SECOND 


LDA 


C0L0R2 


0047 0382 


8D 20 


DO 




STA 


BORDER 


0048 0385 


8D 21 


DO 




STA 


COLOR 


0049 0388 


A5 FB 






LDA 


LINE1 


PT 












0050 038A 


8D 12 


DO 


EXIT 


STA 


RASTER 


0051 038D 


4C BC 


FE 




JMP 


RET IRQ 



? CLEAR INTERR 

S INTERRUPT BY 
5 CLEAR INTERR 
SALLOW RASTER 

5 

5 READ RASTER 

; GREATER THAN 

5 SET COLOR 1 
5 NEXT INTERRU 

5 SET COLOR 2 
5 NEXT INTERRU 
5 AT LINE 1 



ASSEMBLY COMPLETE. 



100 


FOR I = 828 TO 911 














110 


READ X : POKE I,X : S=S+X : NEXT 








120 


DATA 120,169, 91,141, 20, 3,169, 3,141 


21, 


3 


,165 


1 30 


DATA 251, 141 


, 18 


,208, 173 


, 17,208 


41 


, 1 27 


141, 


17 


,208 


140 


DATA 169, 129 


, 141 


, 26,208 


, 88, 96 


173 


, 25 


208 , 


141 


, 25 


150 


DATA 208, 41 


, 1 


,208, 7 


,173, 13 


,220 


, 88 


76, 


49 


, 234 


160 


DATA 173, 18 


,208 


,197,252 


,176, 13 


,165 


,253 


141, 


32 


, 208 


170 


DATA 141, 33 


, 208 


, 165,252 


, 76,138 


1^, 


, 165 


,254, 


141 


, 32 


1 80 


DATA 208, 141 


, 33 


, 208 , 1 65 


,251, 141 


, 18 


, 208 


, 76, 


188 


,254 


190 


IF S <> 10678 THEN PRINT "ERROR IN DATA! 


1 ir ii 


END 




200 


PRINT "OK" 
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As an example, we have developed a program which allows 
you to display one portion of the screen with a different 
background color. This allows you to emphasize one or more 
lines on the screen. In order to keep the program as general 
as possible, it allows you to select the color of the 
emphasized area as well as the background color of the rest 
of the screen with POKE commands. The raster line at which 
the switch to the second background color occurs can be set 
in the sane manner. This also applies to the number of the 
raster line at which the switch back to the first background 
color is made. 

This program also allows you to move a colored line 
with a width of a standard screen line (8 raster lines) on 
the screen by pressing the cursor-up and cursor-down keys. 
The function keys can be use to change the color of the line 
and the remaining background. 



100 


LI =251: 




L2=Ll+l: 




Cl=L2+l: 




C2=C1+1 


1 1 


L.«=50: 




SYS S28: 




REM INITIALIZE INTERRUPTS 


1 20 


POKE Ll.L: 




POKE L2.L+S: 




POKE CI, 6: 




POKE C2.3 


150 


GET ft*: 




IF A*="" 




THEM 150 


1 60 


IF A*=OIR*<!.7> 




THEN BOSUB 200 


170 


IF A*=CHR*<145> 




THEN GOSUB 300 


180 


IF A*=CHR*(133) 




THEN GOSUB 400 


190 


IF A*=CHR*(134) 




THEN GOSUB bOO 


195 


GOTO 150 
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200 IF LX240 

THEN FOR 1=0 TO 7: 
L=l_+l: 
POKE Ll f L: 
POKE L2,L+8: 
NEXT 
210 RETURN 

300 IF L>50 

THEN FOR 1=0 TO 7: 

L=L-l: 

POKE L1,L: 
POKE L2,L+8: 
NEXT 
310 RETURN 

400 POKE C1,PEEK<C1)+1 AND 15: 
RETURN 

500 POKE C2,PEEK(C2)+1 AND 15: 
RETURN 



You can change the program to suit your own purposes by 
changing the raster line POKEd into memory locations 251 
through 254. This allows you to change the point at which 
the switch to the second color occurs and the raster line at 
which the switch is made back to the original color 
(locations 251 and 252, respectively). The next two 
addresses, 253 and 254, contain the color codes of the first 
and second characters. 

Raster line 50 corresponds to the upper screen border 
(the point where the border begins), while the beginning of 
the lower border corresponds to raster line 250. A screen 
line is divided into 8 raster lines. You can also place the 
border between the two different colors in the middle of a 
screen line. 
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Switching background colors is not the only effect 
which the raster interrupt allows. Any of the video 
controller parameters can be changed under interrupt 
control. You can, for instance, mix two graphics screens or 
a graphics screen and a text screen on the display using the 
same technique we used for the background colors. You might 
even try displaying different character sets at different 
parts of the screen all at the same time! 

With this technique, you can also obtain effects which 
are not otherwise possible with the Commodore 64. For 
example, the raster interrupt makes it possible to display 
more than 8 sprites at one time. You can display eight 
sprites in the upper half of the screen. When a certain 
raster line is reached, you simply reset the sprite pointers 
and coordinates and you can display eight more sprites in 
the lower half of the screen. Naturally, you can also divide 
the screen into more than two parts. 
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2.7 Smooth scrolling 

Scrolling is the term given to the action the screen 
performs when all of the information on it is moved in one 
direction (generally up). When the screen scrolls up, a line 
is left blank at the bottom so that more information can be 
printed. 

By "smooth" scrolling we mean the ability to display a 
new line on the screen gradually while the old line 
gradually disappears. The video controller allows us this 
possibility using register 17. The three least-significant 
bits allow the screen to scroll up to eight raster lines at 
a time, which corresponds exactly to a screen line. In order 
to display a new line on the screen, we can tell the video 
controller to display only 24 lines. This is the case when 
bit 3 of register 17 is cleared to zero. 

First we switch the screen over to 24 lines and then 
position the rest of the screen contents so that the upper 
24 lines will be displayed. Now we can write something to 
the invisible 25th line and shift the visible portion of the 
screen up 8 raster lines = 1 screen line. This causes the 
top line to disappear. 

In addition to scrolling up (or down), the video 
controller is able to smooth-scroll horizontally, to the 
right or left. The three least-significant bits of register 
22 apply to the column-wise shifting, while bit 3 forces the 
controller to display in 38 columns. 

This example program scrolls the screen up. 
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20 FOR 0=1 TO .100: 

NEXT 
100 VIDE0=53248 
110 LINE=VIDE0+17 
115 X*=CHR*(19>: 

FOR 1=1 TO 24: 
X*=X*+CHR*(17> : 

NEXT 
120 POKE LINE, PEEK (LINE) AND NOT 8 
130 POKE LINE, PEEK (LINE) AND 248 OR 7 
140 N=N+l: 

A*="LINE"+STR*(N) : 

GOSUB 200: 

GOTO 140 
200 PRINT : 

PRINT X*A*; 
210 FOR 1=7 TO STEP -1 

220 POKE LINE, PEEK (LINE) AND 248 OR I 
230 FOR J=l TO 250: 

NEXT 
240 NEXT : 

RETURN 



115 A string is defined consisting of one "cursor- 
hone" and 24 "cursor-down" characters for 
positioning the cursor in the 25th line. 

120 Bit 3 in register 17 of the video controller is 
erased, switching the display to 24 lines. 

130 Bits through 2 are set. This displays the upper 
24 lines of the screen while the 25th remains 
invisible at the lower screen border. 

140 The counter N is incremented. The text for the 
line to be printed is placed in A$ for the 
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subroutine at 200, and this subroutine is called. 
200 The screen is shifted up one line by the PRINT 

command. The text is then printed on the last 

line. 
210-240 This loop shifts the screen up 8 raster lines. The 

delay loop controls rate at which the scrolling 

will occur. 
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2.8 Changing the keyboard layout 



The keyboard of the Commodore 64 is organized as a 
matrix with eight rows and eight columns. The lines of the 
eight rows are tied to port A (address $DC00 = 56320) of CIA 
1 and the eight columns are connected to port B (address 
$DC01 = 56321) of CIA 1. When polling (reading) the 
keyboard, (address $FF9F = 65485) it is polled row by row, 
during which each row sends a signal over port A. If a key 
is pressed, you can determine the column of the pressed key 
over port B. The key numbers between and 63 are calculated 
from the row and column numbers. 64 indicates that no key is 
pressed. The organization is given in the table below. This 
key number is placed in location $CB (203) after each 
polling. The number of the key last pressed is stored in $C5 
(197). The status of the special keys is stored in address 
$0280 = 653 when polling. Bit indicates SHIFT, bit 1 is 
reserved for the COMMODORE key, and bit 2 is for the CTRL 
key. The assignment of a particular character to a 
particular key is controlled by various tables which 
determine the ASCII value to be assigned to any given key. 
Because all keys on the Commodore 64 can have four different 
meanings, there are four such tables. Notice the difference 
between the right and left shift keys. Shift lock is tied to 
the left shift key. 
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Col 


1 


2 




3 


4 


5 


6 


7 




















DEL 


RETURN 


CURRIGHT 


F7 


Fl 


F3 


F5 


CURD OWN 


1 3 


W 


A 




4 


Z 


S 


E 


SHIFT LT 


2 5 


R 


D 




6 


C 


F 


T 


X 


3 7 


Y 


G 




8 


B 


H 


U 


V 


4 9 


I 


J 







M 


K 





N 


5 + 


P 


L 




- 


. 


: 


e 


» 


6 POUND 


* 


» 


HOME 


SHIFT RIGHT 


= 


"• 


/ 


7 1 


ARROW 


CTRL 




2 


SPACE 


C = 


Q 


STOP 



The first assignment table gives the ASCII code when 
the key is pressed alone. The second table contains the 
codes for when the key is pressed along with the SHIFT key, 
the third table for when the Commodore key is pressed, and 
the fourth and final table is for the control key. An entry 
of $FF=255 in this table marks an illegal entry. The keys 
SHIFT, COMMODORE, and CTRL are handled differently; the 
corresponding entries in the first table are 1, 2, and 4. 
This status is saved in $28D=653. Bits 0, 1, and 2 
correspond to these three keys. 

If we want to assign a different code to a key, we must 
change the corresponding entry in the table. Because the 
table is stored in ROM, it is not possible to change it 
directly. The Commodore 64 has RAM as well as ROM available 
to it in the same address range, however, allowing the 
kernal to be copied to the "underlying" RAM and there 
changed. This can be done with a small BASIC program. At the 
same time, BASIC itself must also be copied into the 
underlying RAM. 
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100 FOR I = 40960 TO 49151 : REM COPY BASIC RAM 

110 POKE I, PEEK(I) : NEXT 

120 FOR I = 14*4096 TO 65535 : REM COPY KERNAL 

130 POKE I, PEEK(I) : NEXT 

140 POKE 1,53 

Lines 100 to 130 copy the kernal and BASIC from ROM 
into the underlying RAM. The switch fros ROM to RAM is made 
in line 140, so that the kernal is now running in RAM. Now 
we can proceed to change the codes of individual keys. 

We need to know the addresses of the four tables: 

Table 1 unshifted $EB81 = 60289 

Table 2 with shift $EBC2 = 60354 

Table 3 with Commodore $EC03 = 60419 

Table 4 with CTRL $KC78 = 60536 

If we want to change a code, we must determine the 
number of the key we wish to change from the matrix table. 
The numbering runs from in the upper left-hand corner to 
63 in the lower right. To find the key number, multiply the 
row number by 8 and add the column number. Y, for instance 
has the number 25 and Z the number 12. The number of the key 
is used as the offset to the start of the desired table. 

With the help of these four tables you can define 4*64 
or 256 different characters. The RESTORB key cannot be 
redefined since it is tied directly to the non-maskable 
interrupt (NMI) line of the processor. The key definition 
remains until STOP/RESTORE is pressed. Since these two keys 
switch the ROM back on. This can be prevented by changing 
the value for the memory configuration in RAM. This can be 
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done in the previous program in line 150: 

150 POKE 64982, 53 

Instead of determining the number of the key from the 

matrix, one can obtain it from the program itself. This 

program reassigns keys and determines the appropriate key 
number itself: 

100 DIM T(4): FOR 1=1 TO 4: READ T(I): NEXT 

110 DATA 60289,60354,60419,60536 

120 FOR 1=14*4096 TO 65535: POKE I, PEEK(I): NEXT 

130 FOR 1=40960 TO 49151 : POKB I, PEBK(I) : NEXT 

140 POKE 1,53: POKE 64982, 53 

1000 PRINT "PLEASE PRESS THB KEY WHICH YOU WISH TO CHANGE" 

1010 GET A$: IF A$="" THEN 1010 

1020 PRINT A$ 

1030 A = ASC(A$) 

1040 FOR J=l TO 4: T=T(T) 

1050 FOR 1=0 TO 63: IF PEEK(T+1) <> A THEN NEXT: NEXT 

1060 PRINT "PRESS THE KEY WHICH YOU WISH TO ASSIGN" 

1065 PRINT "TO THE FIRST" 

1070 GET A$: IF A$="" THEN 1070 

1080 PRINT A$ 

1090 POKB T+I, ASC(A$): GOTO 1000 
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Chapter 3: Easy Data Entry 



3.1 Cursor positioning and determining cursor position 



For easy input and output on the screen, it is very 
useful to be able to set the cursor directly to any desired 
spot on the display. The Commodore 64 has a command for 
positioning the cursor on a line, the TAB command and the 
POS function for determining the column, but no commands for 
moving the cursor directly to any spot on the screen and it 
is only possible to move forward with the TAB command. 

The kernal already contains routines for arbitrarily 
positioning the cursor, however. Two memory locations in 
page zero are reserved for the row and column of the cursor 
position. By reading these values with PEEK we can determine 
the cursor position at any time. 

100 PRINT "THE CURSOR IS IN LINE"PEEK(214) "C0LUMN"PEEK(211) 

If we want to set the cursor, it is not enough to just 
POKE the appropriate values in addresses 214 and 211. The 
kernal must still calculate the required pointer for screen 
and color RAM based on the cursor position. There is a 
routine in the kernal that will do this for us. 
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100 REM SET CURSOR 
110 INPUT "ROW";R 
120 INPUT "COLUMN" ;C 
130 POKE 214, R 
140 POKE 211, C 
150 SYS 58640 
160 PRINT "TEST"; 

Calling 58640 with SYS 58640 sets the cursor at the 
position determined by locations 214 and 211. 

The combination of these two procedures gives us new 
capabilities for programming. You can provide status lines 
in your programs, for instance, in which information can be 
given to the user from time to time. So as not to disturb 
the rest of the screen, save the current position before 
moving the cursor to the status line. Then print the message 
on the status line, set the cursor position bach to the 
original value, and continue with the execution of the 
program. A program fragment might look like this: 



300 R=PBBK(214): REM ROW 

310 C=PEEK(211): REM COLUMN 

320 POKE 214,0: REM CURSOR IN ROW 

330 POKE 211,10: REM CURSOR IN COLUMN 10 

335 SYS 58640 

340 PRINT "PLEASE INSERT DISK" 

350 POKB 214, R: RBM RESTORE ROW 

360 POKE 211, C: REM COLUMN 

370 SYS 58640 

The rows are numbered from to 24 and the columns from 
to 39. 
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3.2 Turning the cursor on and off 



The cursor marking the current screen position on the 
Commodore 64 is automatically turned on when the computer is 
expecting input. This is the case when an INPUT command is 
executed, for example. When you perform input with GET, 
however, no cursor appears. There are times however when it 
would be nice to have the cursor flashing when using GET so 
that the user is aware that the program is expecting input. 

The Commodore 64 has a memory location (204) that 
functions as a flag for the cursor. If this location 
contains the value 1 (or any other value not equal to zero), 
the computer knows that the cursor is turned off and a jump 
is made (during the interrupt) to the corresponding location 
in the kernel. A value of zero tells the computer to flash 
the cursor. 

We can make use of this fact when we want to turn the 
cursor on and off under program control. We can, for 
example, turn the cursor on before a GET command, then wait 
for a key press and turn the cursor off. 

100 POKE 204,0 : REM CURSOR ON 

110 GET A$: IF A$="" THEN 110: REM WAIT FOR KEY PRESS 

120 POKE 204,1: REM CURSOR OFF 

130 PRINT A$; 

It may happen that the cursor is turned on and 
immediately turned off while it is still in the on phase. If 
this happens, a white square will remain on the screen. This 
can be avoided if one first checks to see if the cursor is 
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in the on phase before it is turned off. There is also a 
nenory location in page zero to accomplish this. Inserting 
the following line into our example program will cause the 
computer to wait until the cursor is in the off phase before 
turning it off. 

115 IF PEEK(207) THEN 115: REM WAIT UNTIL CURSOR IS OFF 

You can find an application of this technique in section 3.5. 
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3.3 Repeat function for all keys 



You have no doubt noticed while working with your 
Commodore 64 that the cursor control keys and the space bar 
repeat when held down. This is especially useful for 
positioning the cursor and editing programs. With just a 
simple POKE command, the repeat function can be extended to 
all keys. This is particularly helpful for such things as 
word processing. The switch can be made in the direct mode 
or in a program and can also be switch ed back by either of 
these methods. The address used to make the switch is 650. A 
value of means that only the cursor keys are automatically 
repeated. If you write the value 128 into memory location 
650 with POKE, all keys will repeat. It is also possible to 
turn the repeat function off entirely by placing the value 
64 in address 650. 

100 POKE 650,128: REM REPEAT FOR ALL KEYS 

200 POKE 650,0 : REM REPEAT FOR CURSOR ONLY 

300 POKE 650,64 : REM TURN REPEAT OFF 

The repeat delay and repeat rate values are found in 
locations 651 and 652, respectively. These values are always 
renewed by the kernel, so changes are only possible by 
moving the kernal to RAM (see sections 2.6 and 4.2). 
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3.4 The WAIT coamand: Waiting for a key press 



The WAIT command is a little-used BASIC command. We 
will show you what it does and what it can be used for. 

WAIT A,B 

This command gets the contents of memory location A (as 
in a PEEK command), and ANDs this value with B. If the 
result is not zero, program execution continues. It is 
assumed in this description that the value of A is either 
the address of an I/O port or some other peripheral, or that 
the value of A is changed by an interrupt. Otherwise the 
command will either wait forever or not at all. 

The most interesting use is waiting for a certain key 
press. Memory location 653, for example, contains 
information about whether or not the SHIFT, COMMODORE, or 
CTRL keys have been pressed. You can use the WAIT command to 
wait until one of these keys has been pressed. 

100 PRINT "PRESS THE CONTROL KEY" 
110 WAIT 653,4: REM WAIT FOR CTRL 
120 ... 

In line 110 the program waits until the control key is 
pressed. You can wait for the shift and Commodore keys with 
the following WAIT commands: 

WAIT 653,1: REM WAIT FOR SHIFT 

WAIT 653,2: REM WAIT FOR COMMODORE KEY 
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If you want to wait for any desired key press, you can 
check location 203. If no key is pressed, this location 
contains then value 64, otherwise it contains the matrix 
number of key pressed (see section 2.6). With 

WAIT 203,64 

the program waits as long as a key pressed. With 

WAIT 203,63 

the computer waits until a key is pressed. This key can then 
be determined through use of the GET command, for example. 

100 WAIT 203,63 

110 GET A$: PRINT A$ ; 

The WAIT command will be ended only when a key is 
pressed. If there is data already in the keyboard buffer, 
you can also make the number of pressed keys the basis of 
the WAIT command. 

100 WAIT 198,255 

110 GET A$: PRINT A$; 

120 GOTO 100 
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3.5 Assigning the function keys 



The Commodore 64 has, in addition to its alphanumeric 
keys, four function keys, each of which has two functions. 
These keys can be used for aenu control, for instance, in 
order to select a certain part of a program. These keys can 
be polled with GET and then execution can be transferred 
depending on the key pressed. The function keys have the 
following ASCII codes: 

fl => 133 

f3 => 134 

f5 => 135 

f7 => 136 

Pressing the shift key at the same time increments the ASCII 
value by four: 

f2 => 137 

f4 => 138 

f6 => 139 

f8 => 140 

The function keys can be polled in the following manner: 

100 GBT A$ : IF A$="" THBN 100 
110 A = ASC(A$) 

120 IF A = 133 THEN 1100 : REM Fl 

130 IF A = 134 THEN 1200 : REM F3 

140 IF A = 135 THEN 1300 : REM F5 

150 IF A = 136 THEN 1400 : REM F7 

160 IF A = 137 THBN 1500 : REM F2 
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170 IF A = 138 THEN 1600 : REM F4 

180 IF A = 139 THEN 1700 : REM F6 

190 IF A = 140 THEN 1800 : REM F8 

200 GOTO 100 

Control is passed to the appropriate line based on the 
function key that was pressed. This can be accomplished in a 
more elegant fashion with an ON ... GOTO statement. 

100 GET A$ : IF A$ = "" THEN 100 

110 A = ASC (A$) : IF A<133 OR A>140 THEN 100 

120 ON A-132 GOTO 1100,1200,1300,1400,1500,1600,1700,1800 

This technique can be used within a program. We would 
now like to present to you a program which allows a string 
of characters to be assigned to each function key and which 
will display this string on the screen whenever the function 
key is pressed. The function keys could be assigned with 
BASIC command words, for instance. It is also possible to 
assign a word followed by a RETURN to a function key. This 
allows the command to be executed directly. If, for example, 
the string "LIST", followed by the code for RETURN, is 
assigned to the Fl key, then the program currently in memory 
will be listed whenever the Fl key is pressed. The maximum 
length of the string assigned to a function key is 10 
characters, the length of the keyboard input buffer. 

With our program, you can assign not just eight 
different strings to the function keys (dual assignment — 
with or without the shift key), but sixteen. The Commodore 
and control keys are used along with the shift key to select 
the desired function from among the four keys. We have 
chosen the following assignments for the keys: 
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fl 


= > 


fl 






f2 


= > 


f3 






f3 


= > 


f5 






f4 


= > 


f7 






f5 


= > 


fl 


plus 


SHIFT 


f6 


= > 


f3 


plus 


SHIFT 


f7 


= > 


f5 


plus 


SHIFT 


f8 


= > 


f7 


plus 


SHIFT 


f9 


= > 


fl 


plus 


COMMODORE 


flO 


= > 


f3 


plus 


COMMODORE 


fll 


= > 


f5 


plus 


COMMODORE 


fl2 


= > 


f7 


plus 


COMMODORE 


fl3 


= > 


fl 


plus 


CTRL 


fl4 


= > 


f3 


plus 


CTRL 


fl5 


= > 


f5 


plus 


CTRL 


fl6 


= > 


f7 


plus 


CTRL 



Here is the machine language program which allows the 
assignment of the function keys. The strings will be placed 
in memory by a BASIC program. 

OOOl 033C 



S FOR CBM 64 

0002 033C 

0003 033C 

0004 033C 
FER 

0005 033C 
EYBOARD DECODING 

0006 033C 
ECODER TABLE 

0007 033C 
FER 

0008 033C 



ORG 828 
KEYVEC EQU *28F 
KEYPNT EQU *F5 
BUFFER EQU *277 
NOKEYS EQU *C6 



ARACTERB IN KEYBOARD BUFFER 

0009 033C SHIFT EQU *28D 
FT/CBM/CTRL 

0010 033C KEYNO EQU *CB 
R FDR PRESSED KEY 

0011 033C LSTKEY EQU *C5 
ST KEY 

0012 033C TEMP EQU LSTKEY 
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; FUNCTION KEY 

5 CASSETTE BUF 
5 VECTOR FOR K 
5 POINTER TO D 
; KEYBOARD BUF 
; NUMBER OF CH 
5 FLAG FOR SHI 
5 MATRIX NUMBE 
5 NUMBER OF LA 



0013 033C 
EST FUNCTION KEY 

0014 033C 
HEST FUNCTION KEY 

0015 033C 

0016 033C 
ASSIGNMENT 

0017 033C 

0018 033C A9 47 
NEW ROUTINE 

0019 033E AO 03 

0020 0340 8D 8F 02 

0021 0343 8C 90 02 

0022 0346 60 

0023 0347 

0024 0347 A4 CB 

0025 0349 C4 C5 
RE? 

0026 034B FO OA 

0027 034D Bl F5 

0028 034F C9 89 
HIBHER FUNCTION KEY 

0029 0351 BO 04 
KEY? 

0030 0353 C9 85 

0031 0355 BO 03 

0032 0357 4C 48 EB 
ARD EVALUATER 

0033 035A E9 85 

0034 035C 85 C5 

0035 035E OA 

0036 035F OA 

0037 0360 65 C5 

0038 0362 OA 

0039 0363 AE 8D 02 
BM/CTRL 

0040 0366 EO 01 

0041 0368 FO OE 

0042 036A EO 02 

0043 036C FO 07 

0044 036E EO 04 

0045 0370 DO 09 

0046 0372 18 

0047 0373 69 28 

0048 0375 18 

0049 0376 69 28 
EXT TABLE 

0050 0378 18 

0051 0379 69 28 

0052 037B AA 
NDEX 

0053 037C AO 00 

0054 037E BD 00 CF 
NT FROM TABLE 

0055 0381 FO 09 



FMIN 


EQU 


$85 


FMAX 


EQU 


*88 


SETFLS 


EQU 


*EB26 


OLDKEY 


EQU 


SEB4B 



INIT 



LDA #<FNCTN 





LDY 


# >FNCTN 




STA 


KEYVEC 




STY 


KEYVEC+1 




RTS 




FNCTN 


LDY 


KEYNO 




CPY 


LSTKEY 




BEQ 


NOFUNC 




LDA 


(KEYPNT) 




CMP 


#FMAX+1 




BCS 


NOFUNC 




CMP 


#FMIN 




BCS 


FTN 


NOFUNC 


JMP 


OLDKEY 


FTN 


SBC 


#FMIN 




STA 


TEMP 




ASL 






ASL 






ADC 


TEMP 




ASL 






LDX 


SHIFT 




CPX 


#1 




BEQ 


SHIFTK 




CPX 


#2 




BEQ 


CBMKEY 




CPX 


#4 




BNE 


NOSPEC 


CTRLKY 


CLC 






ADC 


#40 


CBMKEY 


CLC 






ADC 


#40 


SHIFTK 


CLC 






ADC 


#40 


NOSPEC 


TAX 






LDY 


#0 


BETKEY 


LDA 


TABLE, X 




BEQ 


ENDKEY 
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5 CODE FOR LOW 
jCODE FOR HIB 

SOLD KEYBOARD 

5 SET VECTOR T 



5 KEY NUMBER 
5 SAME AS BEFO 

; YES 

S ASCI I CODE 

; COMPARE WITH 

5 NO FUNCTION 



;T0 OLD KEYBO 

5 TIMES 10 

5 FLAB SHIFT/C 
5 SHIFT? 
;CBM? 
5 CTRL? 

5 POINTER TO N . 

5 POINTER TO I 
5 GET ASSISNME 
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0056 0383 99 77 02 
BUFFER 

0057 0386 E8 

0058 03B7 CB 

0059 0388 CO OA 
ALREADY 

0060 038A DO F2 

0061 038C 84 C6 
OF CHARACTERS 

0062 038E A2 FF 
ALID KEYBOARD CODE 

0063 0390 4C 26 EB 
AGS 

0064 0393 
The following 





STA 


BUFFER 




INX 






I NY 






CPY 


#10 




BNE 


GETKEY 


ENDKEY 


STY 


NOKEYS 




LDX 


#*FF 




J MP 


SETFLG 



SAND WRITE IN 

5 10 CHARACTER 

5 SAVE NUMBER 
;FLAG FOR INV 
5 ACTUALIZE FL 



TABLE EQU *CF00 
BASIC program generates the machine 

language code and places the strings for the 16 function 

keys into memory. The strings themselves are stored in the 

program in DATA statements at line 300 and can naturally be 

changed as desired. Remember that the strings may not be 

more than ten characters long. If you want to execute a 

command immediately upon pressing the function key, a RETURN 

character must terminate the string. This can be done by 

placing a left-arrow as the last character in the string. 

When loading the strings into memory, this character will be 

converted to a RETURN (line 250). If you want to use a 

quotation mark within the string, use an apostrophe instead 

(see line 260). If a comma appears in the string, the string 

must be enclosed in quotation marks (as in line 330). 



1 00 
110 
1 20 
130 
140 
150 
1 60 
170 
180 
190 
200 
210 



FOR I 

READ 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

IF S 



B28 TO 914 



X : POKE I , X 
169, 71,160 
203, 196, 197 
133,176, 3 



101,197, 10,174,141, 



240 7 224 



119, 
76, 



3 a 



24,105, 40,170,160, 



: S=S+X : NEXT 
3,141,143, 2,140,144, 



240, 10,177,245 
76, 72,2: 



208, 



200, 19; 



,224 



,201, 137, 176 

133, 133, 197 

1,240, 14 



0, 189 
10, 208 



10591 THEN PRINT "ERROR 



4,105, 40, 



0,207,240 
,242, 132, 198 

IN DATA! ! " : 



5 96 
, 4 
, 10 
,224 
,10! 
, 9 

END 



, 164 
01 
10 

', 40 

,153 
255 



PRINT "OK" 



56 



Tricks & Tips 



215 SYS 828 

220 REM PLACE KEY ASSIGNMENTS IN MEMORY 

230 AD = 12*4096+15*256 : REM *CFOO 

240 FOR 1=0 TO 15 : READ X* : FOR J=l TO LEN<X*> 

250 A=ASC(MID$(X*,J, 1) ) : IF A=95 THEN A=13 : REM RETURN 

260 IF A=39 THEN A=34 : REM QUOTE 

270 POKE AD+10*I+J-1,A : NEXT 

280 IF JOll THEN POKE AD+I*10+J-1 , : REM END CRITERIUM 

290 NEXT 

300 DATA LIST*-, RUN*-, GOTO, CHR* ( 

310 DATA ?FRE(0)*-, SAVE, PRINT, THEN 

320 DATA POKE, PEEK <, PR INT#, INPUT# 

330 DATA "LOAD'*', 8*-", NEXT, BOSUB, RETURN 



The strings assigned to the function keys will be 
placed in free RAM at address $CFOO. If you are using this 
memory area or you want to store the strings somewhere else, 
you must change the address in line 230 as well as the 
address in the DATA statement in line 170. Replace the 
fourth and fifth-last elements (0 and 207) with the low and 
high bytes of the new address. When you use a different 
address, remember that at least 160 bytes must be available 
there (16 keys * 10 characters). 

To change the function key assignments, all that is 
required is to change the strings in the DATA statements 
starting at line 220. 

Pressing RUN/STOP-RESTORE will unassign the function 
keys. You can restore them with SYS 828. 
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3.6 An Easy INPUT Routine 

You have no doubt run across the problem of having your 
program "interrupted" after invalid input from the keyboard. 

There are two primary reasons for this: 

Input in the form INPUT A 
A program interruption occurs if the input does not consist 
of exclusively numeric characters. 

Input in the form INPUT A$ 
The program may crash if the RETURN key is pressed without 
previous alphanumeric input or if too few characters are 
entered. 

Input by means of GET A$ eliminates the first problem 
and can be used to eliminate the second, but many avoid it 
because of the necessity of building a string one character 
at a time if the input is longer than one character. In 
addition, no flashing cursor is displayed, something that 
would be desirable as a request for input. 

Once you have made sure that the obstacles are removed 
from data entry, it is still possible that data errors may 
creep in, which, while they will not cause the program to 
crash, may result in an erroneous result. 

Let us look at a typical example using INPUT A$ to 
input numeric data. 

You want characters from the keyboard which you intend 
to convert to a numerical value by means of VAL(A$). You 
have avoided possible conflicts here that would have 
occurred with INPUT A (entering alphabetic data), although 
an illegal input has the following effect: 

You answer the INPUT with 123R56. The conversion with 
A=VAL(A$) puts the value 123 in A, certainly not the number 
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intended. 

Perhaps you object, saying that such input errors are 
the exception and not the rule and that getting the wrong 
answer now and then is not of much consequence in personal 
computing. 

We are of the opinion, however, that it should be your 
goal to produce "bomb-proof programs, taking into 
consideration that you may have the opportunity to write 
programs which are not just for your own use. 

We want to present you with a ready-to-use subroutine 
which virtually eliminates the problems mentioned earlier. 
We describe certain parts of this program in detail which 
you can adapt to your own needs. 

First, the meanings of the variables and memory 
locations used in the program are explained. The following 
variables must be initialized before the subroutine is 
called: 

MN=0 Purely numerical input is desired. 

MN=1 The input may be alphanumeric. 

ML=0 The length given in IL is mandatory. 

ML=1 The length given in IL is the maximum. 

IL Mandatory or maximum length of the input 

Furthermore, the routine uses the following variables: 

CC Number of valid characters in IN$ 

CS Current cursor column 

CZ Current cursor line 

CP Length created by inserting an input field 

MS Highest cursor column during input 
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G$ Contains the character from the last GET 

IN$ The complete input is returned in this variable 

Memory locations used: 

204=0 Turn cursor on 

204=1 Turn cursor off 

205 Counter for the flash frequency of the cursor 

207=0 Cursor in OFF phase 

207=1 Cursor in ON phase 

211 Cursor column 

214 Cursor line 

One additional preparation necessary for using this 
routine is opening the screen with OPEN 1,3. This is 
required because the created input is read from the screen 
by means of GET#1 in line 35680. 

Now the individual program steps: 

35020 The variables are initialized and the cursor 

position is saved for the 6ET#1 in line 35680. 
35060 A character is read from the keyboard. 
35080 If this character is a RETURN, the input is 

ended depending on the length and the value in 

ML. 
35100-35130 If the DELETE key was used, the length and 

position counters are actualized if the input 

field contains only legal characters (CP=0) or 

if it was enlarged with INSERT. 
35140 INSERT is only executed if the length in IL will 

not be exceeded. 
35160-35180 Ensures that the cursor does not leave the input 

field when CRSR RIGHT and LEFT are used. 
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35200 Entry point of the data filter depending on MN. 

35220-35240 If the cursor is within the data field and a 
purely numerical value will be entered, the 
characters will be accepted. The legal range, 
here set at values 47 through 58, can be changed 
as desired. 

In our example these values form the borders for 
the representable digits 0-9. You can find the 
appropriate values for the border of your 
choosing on page 135ff of the Commodore 64 's 
user's guide. 

For our example that means that 47 corresponds 
with the character and 58 stands for the 
character 9. All characters in between (0-9) are 
also legal. 

35300-35380 Here the same thing happens, but the legal 

range is expanded to include the letters of the 
alphabet. 
35400 If the input is not long enough (and ML=0), 
input will not be ended. 

35600-35690 The input field is taken from the screen and put 
into IN$ until either the length given in IL is 
reached or no more data is found on the screen. 
Before this can happen, the cursor is reset to 
the position it had at the beginning of the 
routine so that the GET#1 starts at the 
beginning of the field. 

36000-36060 The cursor is turned off and the character in G$ 
is displayed on the screen. 

The line numbering of the routine was chosen 
arbitrarily. The routine may start with 1000, 50000, or some 
other number of your own choosing. Remember, however, to 
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change the line number references in GOTO, GOSUB, and 
IF... THEN statements accordingly. 

We recommend that you start the subroutines of each of 
your programs with the same line number. This oakes it 
easier to write new programs using this subroutine library. 

Here now is the INPUT routine: 

35000 REM INPUT FROM KEYBOARD 
35020 IN*="": 

cc=o: 

CS=PEEK(211) : 
CZ=PEEK<214): 
CP=0: 
MS=0 
35040 POKE 204,0: 

REM CURSOR ON 
35060 BET B*: 
IF 6*="" 
THEN 35060 
35080 G=ASC(G*> : 
IF G=13 
THEN ON ML+1 

GOTO 35400,35600 
35100 IF G=20 AND CP>0 
THEN CP=CP-l: 
GOSUB 36000: 
GOTO 35060: 
REM DELETE 
35120 IF 6=20 AND COO AND PEEK (21 1 > >CS 
THEN CC=CC-l: 
MS=MS-l: 
CP=CP-l: 
BOSUB 36000: 
SOTO 35060 
35130 IF G=20 AND PEEK(211)>CS 
THEN MS=MS-l: 
BOSUB 36000: 
GOTO 35060 
35140 IF 6=148 AND CP+MS<IL 
THEN CP=CP+l: 
MS=MS+1: 
BOSUB 36000: 
GOTO 35060: 
REM INSERT 
35160 IF G=29 AND PEEK (21 1 ><=CS+IL-1 
THEN BOSUB 36000: 
GOTO 35060: 
REM CURSOR RIGHT 
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35180 IF 6=157 AND PEEK(211)>CS 
THEN SOSUB 36000: 
GOTO 35060: 
REM CURSOR LEFT 
35200 ON MN 

GOTO 35300 
35220 IF G>47 AND G<58 AND CCXIL AND PEEK (21 1 )<=CS+IL-1 
THEN CC=CC+l: 
GOSUB 36000: 
GOTO 35360 
35230 GOTO 35360 

35240 IF G>47 AND G<58 AND PEEK (21 1 )<=CS+IL 
THEN GOSUB 36000: 
GOTO 35360 
35300 IF G<48 OR <G>57 AND G<65) OR <G>90 AND G<193) OR 
G>218 

THEN 35060 
35320 IF CCXIL AND PEEK <21 1 ><=CS+IL-1 
I HEN CC=CC+l: 
GOSUB 36000: 
GOTO 35360 



35340 


IF PEEK<211KCS+IL 




THEN GOSUB 36000 


35360 


IF CP>0 




THEN CP=CP-1 


35380 


GOTO 35060 


35400 


IF CCOIL 




THEN 35060 


35600 


POKE 205,2 


35620 


IF PEEK (207)00 




THEN 35620 


35640 


POKE 204 , 1 


35660 


POKE 211,CS: 




POKE 214, CZ 


35670 


IF CC=0 




THEN RETURN 


35680 


GET #1,G*: 




IF G*=CHR*(13) 




THEN IN*=LEFT*(IN*+ 




RETURN 


35682 


IN*=IN*+G* 


35684 


IF LEN(IN*XIL 



", ID ; 



THEN 35680 
35690 RETURN 

36000 POKE 205 , 2 

36020 IF PEEK < 207)00 
THEN 36020 

36040 PRINT G*5 : 

IF PEEK (211) >MS 
THEN MS=PEEK(211>- 

36060 RETURN 
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How do you use this program? 

Suppose you want to enter an item number for an 
inventory. This number must be exactly six digits long and 
consist of numeric characters only. 
We would program the following to accomplish this: 

10 OPEN 1,3 

100 IL=6:MN=0:ML=0 

110 PRINT"PART NUMBER " ; : GOSUB35000 

120 IN=VAL(IN$) 

The desired part number is now at your disposal in IN 
and you can be sure that is exactly six digits long and that 
it contains only numerical digits. 

Along with the previously entered item number you also 
need the description of the part. Since you have set up a 
file with records of a predetermined length, this 
description may be no longer than a certain value, say 10 
characters. This is the maximum length; it is not 
obligatory. 
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The appropriate program lines look like this: 

200 IL=10:MN=1:ML=1 

210 PRINT"DESCRIPTION " ; : GOSUB35000 

The description is now contained in IN$ and, if less 
than 10 characters long, padded with blanks at the end. 

The price is also important of course. It has a 
variable length, up to, say, eight characters and is 
strictly numeric. 

300 IL=8:MN=0:ML=1 

310 PRINT"PRICB " j : GOSUB35000 

320 IN=VAL(IN$) 

The number, consisting of a maximum of eight digits, is 
now in IN and you can proceed with the input of the quantity 
and so on. 

We hope that this small routine takes care of the 
problems you may have had with syntactically incorrect data 
input. Feel free to make use of the special features used in 
the subroutine in regard to the cursor positioning and the 
input from the screen (6ET#1) in your own programs. 
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3.7 A "mouse" for the CBM 64 



A new buzz word has infiltrated the world of personal 
computers: the "MOUSE" 

What is behind this intriguing expression? 

You are probably acquainted with devices called track 
balls on video games. A track ball is a pointing or control 
device used instead of joysticks or paddles to move figures 
around on the screen. 

In contrast to joysticks whose handles can be moved in 
one of only eight directions, the track ball allows rotation 
in all directions since it employs a free-moving ball 
without axes, whose movement is converted into two angles 
for the X and Y axes. On video games this ball is operated 
with the palm. 

The "mouse" consists of such a ball built into the 
underside of a housing about the size of a package of 
cigarettes, which one lays, ball down, on the table and 
rolls back and forth with the hand. 

Through the movement of this box on the table the ball 
is in turn set in motion by the friction against the table 
surface. The coordinates of the device are transmitted to 
the computer via a special interface. 

How does one make serious use of a mouse? 

If a program intended for a large range of users is 
supposed to bear the title "user-friendly," it will in all 
probability be designed using what is called the menu 
technique. This procedure has the advantage that it can 
easily be understood and used by almost anyone. The user can 
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select the desired function either directly or through a 
succession of choices, each more specific than the last and 
all presented to him on the screen. 

The choice is Dade either by entering a number or 
letter corresponding to an option on the screen or by moving 
the cursor to the desired point on the screen. 

Experts in ergonomics have discovered that the 
operations involved in making a choice can be accomplished 
more comfortably and more certainly when one does not have 
to search for the appropriate key on the keyboard but rather 
when one is resting comfortably in an easy chair. With the 
mouse, the movements of the cursor on the screen correspond 
directly to those of the device on the table. Reaching the 
desired field is signaled by pressing a button on top of the 
mouse. 

In order to give you the opportunity to experiment with 
this charming little animal without requiring the purchase 
of an expensive track ball, we have developed the following 
program which works with the conventional joystick in 
control port 2 of your Commodore 64. 

Naturally, this will not allow the same ease of use as 
the real mouse, but the experimentation with the principle 
of the thing will answer for our purpose. 

In keeping with our usual style, we first present the 
variables and memory locations used and then discuss the 
program in detail. 
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First the variables: 



R0$ 
RF$ 

A$ 
B$ 



DR 



J 
JS 
JZ 
PS 
PZ 

S 

z 



character for reverse on 

character for reverse off 

character entered 

after RETURN contains all the previously entered 

characters 

two-dimensional variable field which contains the ASCII 

values for each of the characters on the first four 

lines of the video display. 

original value of the data direction register in 56322. 

This value must be POKEd back into this location at the 

end of the program. 

position of the joystick in control port 2 

joystick column 

joystick line 

column position for PRINT 

line position for PRINT 

column of the joystick cursor for indexing of A(X,Y) 

as above, but line 



Memory locations: 

56322 data direction register for control port 2 
58643 kernal routine for determining cursor position 
58636 kernal routine for positioning the cursor 

781 contents of processor register X, loaded from here by 
the SYS command and placed back when the routine ends 

782 as above, but for the Y register 

204 =0 cursor on 
=1 cursor off 

205 counter for flash frequency of cursor 
207 =0 cursor in OFF phase 
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<>0 cursor in ON phase 



Step-by-step description of the program: 

1 Because the control ports and the keyboard use 
the sane peripheral interfaces in the C64, the 
keyboard is turned off here. At the end of your 
program the value in DR must be poked back into 
56322 or the computer will not respond to the 
keyboard. Only STOP/RESTORE will get you out of 
our example program. 
10-50 The menu field is constructed on the screen. 
60-560 The array is filled with the ASCII values of the 
characters in the first four lines of the 
display. When this array is indexed by the line 
and column positions, it returns the value of 
the character at that screen position. 

680 The character produced by the subroutine at 5000 
is displayed on the screen. 

700 The cursor position resulting from the PRINT is 
saved because the menu field will be 
reconstructed in line 720. This is necessary 
because the lines scroll up when the screen is 
full and the field may be destroyed. 

760 The cursor, displaced by the reconstruction of 
the field, is returned to its original position. 

780 If the last character was RETURN, the input of a 
line is terminated. If you wish to perform 
further operations on the data, you should take 
the data out of B$, 

800 otherwise the entered character is appended to 
B$. 
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5020-5140 The cursor is saved and turned off, set to 

position 0, and turned on again. 
5160 The value obtained form the joystick on control 

port 2 is put into J. 
5170 Delay loop — makes the cursor easier to control. 
5180-5340 The cursor is moved according to the position of 

the joystick. 

If the joystick button was pressed (5260), the 

character under the cursor (at 6010) is put into 

A$. 
6010-6160 The array A(X,Y) is addressed with the cursor 

position of the joystick and the resulting value 

is placed in A$ (6060). 

Because the C64 has a double-line organization, 

that is, the column counter can go up to 80 

positions although the screen is only 40 columns 

wide, the column value is corrected for properly 

indexing the array in line 6050. 



This program is quite simple to use. After typing RUN, 
the cursor appears in the upper left-hand corner of the 
display. You can move it about with a joystick plugged into 
control port 2. When you come to a character that you would 
like to put in B$, simply press the fire button on the 
joystick to do so. As acknowledgment, the chosen character 
appears several lines down. Now you can go on to the next 
character. 

After selecting RETURN, the line is complete in B$ and 
you can process it as desired. 

We hope that you have fun with this program and that it 
encourages you to try similar ideas of your own. 
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The program listing: 

1 DR=PEEK < 56322 ) : 

POKE 56322,224: 

RO*=GHR*<18) : 

RF*=CHR*<146> 
5 PRINT CHR*<147>: 

GOSUB 10 : 

SOTO 60 
10 PRINT CHR«<19>" , -. / 123456789 
"8 



20 PRINT 
30 PRINT 
40 PRINT 

0*"F3 
45 PRINT 
50 RETURN 



8ABCDEFBHIJKL "; 

MNOPQRSTUVWXYZ "5 

"RO$"RET"RF* M "RO*"DEL"RF* u "R0*"F1"RF*" "R 
RF*" "R0$"F5"RF*; 
"R0*"F7"RF*" 



60 DIM A(4,40) 

100 FOR 1=0 TO 13 

120 A (0,1*2+1) =1+44 

140 NEXT I 

180 FOR 1=0 TO 12 

200 A<1, I*2+2)=I+64 

220 NEXT I 

260 FOR 1=0 TO 13 

280 A<2, I*2+l)=I+77 

300 NEXT I 

340 FOR 1=1 TO 3 

360 A(3,I>=13 

380 NEXT I 

420 FOR 1=5 TO 7 

440 A<3,I)=20 

460 NEXT I 

500 FOR 1=0 TO 3 

520 A (3, 1*2+9) =1+133 

560 NEXT I 

530 PRINT : 

PRINT 
600 B«="": 

X=FRE<0) 
640 SOSUB 5000: 

REM 6ET CHARACTER 
680 PRINT A*; 
700 SYS 58643: 

PZ=PEEK<211> : 

PS=PEEK<214) 
720 SOSUB 10 
760 POKE 211,PZ: 

POKE 2 14, PS: 

REM SYS58636 
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780 


IF ASC(A*>=13 




THEN 600 


BOO 


B*=B*+A* 


820 


SOTO 640 


5000 


REM 


5001 


REM *»*** READ JOYSTICK ****» 


5002 


REM 


5020 


SYS 58643: 




REM SAVE PR I NT -CURSOR 


5060 


PZ=PEEK<781): 




PS=PEEK(7B2> 


5070 


POKE 205,3 


5080 


IF PEEK < 207) 




THEN 5080 


5090 


POKE 204, 1 


5100 


POKE 781, Z: 




POKE 782, S: 




jz=z: 




JS=S 


5120 


SYS 58636: 




REM SET JOYSTICK CURSOR 


5140 


POKE 204,0: 




REM TURN CURSOR ON 


5160 


J=PEEK(56320>: 




REM READ JOYSTICK 


5170 


FOR 1=0 TO 30: 




NEXT I 


5180 


IF (J AND 1>=0 




THEN JZ=JZ-1 


5200 


IF (J AND 2)=0 




THEN JZ=JZ+1 


5220 


IF (J/4)=0 




THEN JS=JS-1 


5240 


IF <J AND 8>=0 




THEN JS=JS+1 


5260 


IF (J AND 16) =0 




THEN 6000 


5280 


IF JZ<0 




THEN JZ=0 


5281 


IF JS<0 




THEN JS=0 


5282 


IF JS>30 




THEN JS=30 


5283 


IF JZ>3 




THEN JZ=3 


5285 


POKE 205,3 


5290 


IF PEEK (207) 




THEN 5290 


5295 


POKE 204, 1 


5300 


POKE 781, JZ: 




POKE 782, JS: 




SYS 58636 


5340 


GOTO 5140 
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6000 REM 

6001 REM ***** BET ascii VALUE OF CHARACTER ***** 

6002 REM 

6010 POKE 205,3 
6015 IF PEEK (207) 

THEN 6015 
6017 POKE 204, 1 
6020 SYS 58643: 

REM GET CURSOR POSITION 
6040 Z=PEEK<781> : 

S=PEEK(782) 
6050 IF S>3? 

THEN S=S-40 
6060 A*=CHR$ (A ( Z , S) ) 
6100 POKE 781, PZ: 

POKE 782, PS 

6120 SYS 58636: 

REM LOAD PRINT POSITION 
6160 RETURN 
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Chapter 4 Advanced BASIC 



4.1 Creating a BASIC line in BASIC 

Have you ever tried to write a universal computer 
program? By universal we mean a program which can be 
executed with any desired arithmetic operations with any 
variables or constants." 

Of course not, you will answer. The operation of a 
program depends on the previously entered algorithms. This 
is true, but imagine for a moment that you want to write a 
word processor that allows calculations. Within the text 
are numeric fields on which the mathematical operations are 
to be performed. Such a program might combine the features 
of a word processor with those of a spread-sheet program. 

You could write a version of this program that was set 
up to do only certain calculations, such as balancing a 
checkbook or something similar. It could not perform 
general calculations for which it was not specifically 
designed, however. To perform other operations, a new 
version of the program would have to be written. It would 
be more practical to have a version which would allow any 
calculations to be performed. 

This is what we want to present to you, a procedure 
which allows you to specify the variables on which 
arithmetic operations are to be performed and what 
operations are to be executed while the program is RUNning. 

This is only possible if we can generate a BASIC line 
containing the desired formula within the executing program. 
We will show you how this can be done. 

The following program contains a machine language 
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subroutine, but this will be handled entirely from BASIC. 
Before we discuss the individual program steps, we first 
present the variables and memory addresses used. 

First the variables: 

TM Contains the last address in memory 

VL Least-significant byte of the address "variable start" 

VH As above, but most-significant byte 

VT As above, but total value 

BU Address of the line input buffer 

BC Index variable for filling the buffer 

CA$ Variable containing the calculation 

RE Contains the result after executing the routine 



The memory locations used: 

45-46 Pointer to the start of the variable table 
47-48 Pointer to the start of the arrays 
49-50 Pointer to the start of the strings 

56 Most-significant byte of the pointer to the end of 

BASIC RAM 
40448 The created BASIC line 50100 is placed here. 
40704 Address of the routine which creates a BASIC line from 

the contents of the input buffer and puts it in 40448 



Step-by-step description of the program operation: 

1 The top-of-memory is set to 40448. Memory above this 
point will be used for the machine language routine 
and later for the created BASIC line. 



75 - 



Tricks & Tips 



2-6 The pointer for the start of the variable table is 

raised because the connecting line 50099 will be 

inserted here. 
10-14 Lines 50100 and 50110 are established so that these 

are available at all times in case a jump is made to 

them without having previously placed an operation 

there. The lines contain PRINT and RETURN. 
20-30 The connecting line 50099 is placed at the end of the 

BASIC program. The continuation address of this line 

points to the line 50100 at address 40449. 
32-50 These lines contain the machine language program which 

will be examined in greater detail later. 
60-70 The machine language program is placed in memory at 

40704. 
50040 The BASIC line is read in from the keyboard into CA$. 

Make sure that only functions are entered. 
50050 The input is taken from CA$ and placed in the line 

input buffer (up to 50075). 
50080 The machine language program to create the line is 

called. 
50095 Here the created calculation is called. The result 

will be returned in RE. 

For those who are interested, here is the machine language 
program: 

LDA $7A save BASIC pointer 

STA $9FFF 

LDA $7B 

STA $9FFE 

LDA $14 

STA $9FFD 

LDA $15 
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XX 



YY 



STA 


$9FFC 




LDA 


#$0B 




STA 


$7A 




JSR 


$A579 




LDX 


#0 




LDA 


$0200, 


X 


BEQ 


YY 




STA 


$9E05, 


X 


INX 






BNE 


XX 




LDA 


#$3A 




STA 


$9B05, 


X 


LDA 


#$8K 




STA 


$9E06, 


X 


LDA 


#0 




STA 


$9E07, 


X 


STA 


$9K08, 


X 


STA 


$9B09, 


X 


LDA 


$9FFF 




STA 


$7A 




LDA 


$9FFE 




STA 


$7B 




LDA 


$9FFD 




STA 


$14 




LDA 


$9FFC 




STA 


$15 




RTS 







offset to input buffer 

call the routine "CRUNCH" 

transfer line to 40453 
jump out when done 



behind the line 



append a RETURN 



nark the end-of-line 



reload BASIC pointer 



back to BASIC 



The program listed below consists of two parts: 

The first part from line 1 to 70 need be executed only 
once, at the beginning of the program. It is important that 
these lines also be used at the beginning of your program 
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and not be moved to other line numbers, otherwise your 
variables will be destroyed in lines 1 and 6. 

The second part of the program makes a BASIC line out 
of the formula entered in CA$ and executes this. The result 
is returned in RE. 

The line numbers of the program in which these routines 
are placed may not exceed 49999. The lines at 50000 must 
absolutely be the last in the program. 

The only restriction when using these routines is that 

you must only enter functions, though these may be of any 

type, such as 75/2*Vl-V2+SQR(V3) . The assignment of the 
result to RE is already done in line 50050. 

WARNING! Once the program has been started, it may not be 
changed. You should enter NEW, reload the program, and then 
change it. This is necessary because the created lines are 
not placed directly behind the BASIC program but high in 
memory. As a result, the computer may crash if you try to 
edit, insert, or delete a line. 

Here is the program listing: 

1 POKE 56. 158: 
CLR 

2 IF PEEK(45>+2>255 

THEN POKE 45, 2- (256-PEEK (45) ) : 
POKE 46, PEEK (46) +l: 
BOTO 6 
4 POKE 45, PEEK (45) +2 
6 POKE 47, PEEK (45) : 

POKE 48. PEEK (46): 

POKE 49, PEEK (45) : 

POKE (50) , PEEK (46) 
8 TM=4044S 
10 POKE TM.O; 

POKE TM+1,7: 

POKE TM+2, J5B: 

POKE TM+3, 180: 

POKE TM+4, 195 
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12 POKE TM+5,153: 

POKE TM+6,0: 

POKE TM+7,13: 

POKE TM+8,158: 

POKE TM+9, 190 
14 POKE TM+10,195: 

POKE TM+1 1,142: 

POKE TM+1 2,0: 

POKE TM+1 3.0: 

POKE TM+1 4,0 
20 VL=PEEK<45) : 

VH=PEEK<46> : 

VT=VH»256+VL 
30 POKE VT-4, l: 

POKE VT-3, 158: 

POKE VT-2, 179: 

POKE VT- 1,195 

32 DATA 165,122,141,255,159,165,123.141,254,159,165,2 
0,141,253,159,165,21 

33 DATA 141,252,159,169,11,133,122,32,121,165 

34 DATA 162,0,189,0,2,240,6,157,5,158,232,208,245,169 
,58, 157,5, 158 

36 DATA 169,142,157,6,158.169,0,157,7,158,157,8,158,1 

57,9, 158 
40 DATA 173,255,159,133,122,173,254,159 
50 DATA 133,123,173,253,159,133,20,173,252.159,133,21 

,96 
60 FOR 1=40704 TO 40785 
70 READ MC: 

POKE I,MC: 

NEXT I 
50000 REM CALCULATOR ************* 
50040 BLM523: 

INPUT "CALC'SCA* 
50050 POKE BU,ABC<"R") : 

POKE BU+1,ASC("E") : 

POKE BU+2,ASC<"=") : 

BU=BU+2 
50060 FOR 1=1 TO LEN<CA*> 
50070 POKE BU+I,ASC(MID*(CA*, I, 1) ) : 

NEXT I 
50073 BC=LEN(CA*)+1 
50075 POKE BU+BC,0: 

POKE BU+BC+1,0: 

POKE BU+BC+2,0 
50080 SYS 40704 
50095 SOSUB 5O10O 
50097 RETURN 
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In closing, we have one more suggestion which we would 
like to present to you. 

Assume for one moment that you have found a procedure 
which will create the BASIC program line necessary to solve 
a specially formulated problem. Furthermore, this procedure 
is so universal that from a set of tasks it will create a 
corresponding set of program lines, including loops and 
jumps. 

The only remaining problem is to place all of these 
lines in memory one after the other. The procedure we have 
described in this section can create only a single program 
line, but it can be expanded so that it can be used for 
several lines. 

It should be noted that the machine language program 
does not always transfer the created line to the same point 
in memory but to a address depending on the length of the 
previously created line. In addition, the continuation 
pointer (the first two bytes at the beginning of the line) 
must be taken care of, something we omitted in our example 
because the return command was placed directly within the 
created line. 

Perhaps you will use this suggestion to write a truly 
universal program generator, since such a thing is possible 
in principle. Program generators are programs which are 
given a specific task of a particular kind and then create a 
program in a given programming language (it need not be 
BASIC). 
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4.2 Copying the BASIC interpreter into RAH 



One of the advantages that the Commodore 64 has over 
the other Commodore computers is that the entire address 
space of the processor — 64 kilobytes — is equipped with RAM. 
This presents us with some interesting possibilities such as 
providing the 64 with a completely new operating system and 
a new BASIC interpreter. You need only load the new or 
modified kernal or BASIC interpreter into RAM and then tell 
the computer to switch off the ROM and activate the 
corresponding RAM. This can be accomplished with POKE 
commands . 

If you do not want to load an entirely new BASIC but 
only wish to change certain characteristics, such as 
implementing your own functions or modifications to existing 
functions or commands, you would simply copy the BASIC 
interpreter into RAM, execute the modifications there and 
then switch to RAM. 

A short discussion of the Commodore 64' s memory 
management will help explain this process. When the 
computer is turned on, the kernal ROM and the BASIC ROM are 
switched on and executed. When you read from this area of 
memory with a PEEK command, you receive the value from the 
ROM (see section 9.5 for information on how to read the 
RAM). If you write to this area with POKE, you will always 
write to RAM, regardless of whether it is selected or not. 
We can make use of this feature to copy the entire kernal or 
BASIC ROM into the underlying RAM in order to manipulate it 
for our purposes. The copying can be done with a BASIC loop. 



- 81 



Tricks & Tips 



FOR I=B TO E : POKE I, PEEK(I) : NEXT 

B is the beginning address and E the end address. For BASIC 
these addresses are 40960 ($A000) and 49151 ($BFFF); the 
kernal lies from 57344 ($E000) to 65535 ($FFFF). 

This POKE loop copies the contents of the ROM into the 
underlying RAM. BASIC continues to run in ROM, however. We 
must tell the computer to switch over to the RAM. 

Memory location 1, the processor port, is used for this 
purpose. Normally this location contains the value 55. If 
you want to run BASIC in RAM, you must select the RAM with 
POKE 1,54. Note: You may only execute this POKE after you 
have copied BASIC from 40960 to 49151 into RAM or the 
computer will "crash." If you also want to copy the kernal 
to RAM, this must be done together with the BASIC ROM 
because the selection of this RAM automatically selects the 
RAM under the BASIC ROM as well (see section 2.6). The POKE 
command to make this switch is POKE 1,53. If you want to 
manipulate the BASIC interpreter, first copy the ROM, make 
the desired changes, and then save the program with which 

you made the changes and switch over with POKE 1 If you 

have made an error your computer may "hang up" and you must 
start over from the beginning. Reload your program, correct 
the error and run it again until it works as desired. 
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4.3 No lore negative numbers with the FRB function 



Have you ever found it surprising that when turn on 
your Commodore 64 it announces that it has 38911 bytes free 
but when you issue the command 

PRINT FRB(O) 

it responds with -26627? 

If one receives a negative number, one must add 2 to 
the 16th power (or 65536) to the value in order to get the 
proper (positive) value. This is not overly difficult but it 
is inconvenient. What is the cause of this? 

We must examine the corresponding locations in the ROM 
listing to determine the answer (address $B370: The Anatomy 
of the Commodore 64). There, after the strings which are no 
longer needed are removed and their memory locations made 
free (garbage collection), the free memory area is 
calculated: The start of the strings ($33/$34) minus the end 
of the arrays ($31/$32). This 16-bit integer is converted 
into floating-point format and returned. Here is the error. 
The integer value is treated as a signed number just like 
the integer variables (*), which can only contain values 
from -32768 to 32767. If these numbers were treated as 
positive values, they could contain values in the range to 
65535. With the earlier Commodore computers there was never 
more than 32767 bytes of memory free so that this error was 
never encountered. We must therefore change the FRB routine 
so that the conversion to a floating-point number treats the 
integer as a positive value. This is the case with line 
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numbers which may also be larger than 32767. 

These are the changes which are necessary. Here we have 
placed the additional code in an unused area of the BASIC 
interpreter. 

B38D 4C 55 BF JMP $BF55 
B390 EA NOP 



BF55 


A5 


34 


LDA $34 


BF57 


E5 


32 


SBC $32 


BF59 


A2 


00 


LDX #$00 


BF5B 


86 


0D 


STX $0D 


BF5D 


85 


62 


STA $62 


BF5F 


84 


63 


STY $63 


BF61 


A2 


90 


LDX #$90 


BF63 


4C 


49 BC 


JMP $BC49 



The changes can be made with a small POKE loop. 

100 FOR 1=40960 TO 49151 

110 POKE I, PEEK(I) : NEXT 

120 A=ll*4096+3*256+8*16+13 

130 FOR I=A TO A+3 

140 READ X : POKE I , X : NEXT 

150 A=ll*4096+15*256+5*16+5 

160 FOR I=A TO A+16 

170 READ X : POKE I,X : NEXT 

180 POKE 1,54 

200 DATA 76,85,191,234 

210 DATA 165,52,229,50,162,0,134,13,133,98,132,99 

220 DATA 162,144,76,73,188 
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4.4 Returning to a BASIC program after a LIST command 



When one puts a LIST command within a BASIC program, 
execution always returns to the command mode after the LIST 
command is carried out. This is inconvenient when you want 
to output certain lines such as those which contain function 
definitions using DEF FN. You are also prohibited from 
outputting more than one copy of a program listing, even 
from a loop in the direct mode, such as: 

FOR 1=1 TO 2 : LIST : NEXT 

The remedy to this problem is as follows: Place a jump 
to the BASIC warm-start at the end of the LIST function by 
means of a return command. In addition, the pointer to the 
program text must be saved before calling the LIST function 
because this will be changed during the LIST. 

We need a small routine which carries out these tasks 
and jumps back to the BASIC interpreter. Since this requires 
a machine language program in any case, we will include the 
code to copy the BASIC ROM into RAM. This way we avoid the 
slow BASIC POKE loop. 

We have placed this routine in the cassette buffer. 
After entering or loading, it is executed with SYS 828 and 
immediately allows the use of the LIST command without 
program interruption. 



85 



Tricks & Tips 

0001 033C 
FER 

0002 033C 
TER 

0003 033C 
RACTER 

0004 033C 

0005 033C 
1ST ROUTINE 

0006 033C 
POINTER 

0007 033C 
EMENT 



ORG 828 

CHRPTR EQU *7A 

CHRGOT EQU *79 

LIST EQU *A69C 
LSTVEC EQU *A042 

NEXTST EQU *A8F8 



0008 


033C 








CRLF EQU 


*AAD7 


0009 

S 

0010 


033C 


A2 


20 




LDX 


#32 


033E 


A9 


AO 




LDA 


#*A0 


TART 


OF BASIC 








0011 


0340 


AO 


00 




LDY 


#0 


0012 


0342 


84 


22 




STY 


*22 


0013 


0344 


85 


23 




STA 


$23 


0014 

P 

0015 


0346 


Bl 


22 




LOOP LDA 


(*22) ,Y 


0348 


91 


22 




STA 


<*22),Y 


0016 


034A 


C8 






I NY 




0017 


034B 


DO 


F9 




BNE 


LOOP 


0018 


034D 


E6 


23 




INC 


$23 


0019 


034F 


CA 






DEX 




0020 


0350 


DO 


F4 




BNE 


LOOP 


0021 


0352 


A9 


60 




LDA 


#*60 


0022 


0354 


8D 


14 


A7 


STA 


*A714 


0023 


0357 


A9 


EA 




LDA 


#*EA 


0024 


0359 


8D 


BB 


A6 


STA 


*A6BB 


0025 


035C 


8D 


BC 


A6 


STA 


*A6BC 


0026 


035F 


A9 


6D 




LDA 


#*6D 


EW LIST FUNCTION 






0027 


0361 


8D 


42 


AO 


STA 


LSTVEC 


0028 


0364 


A9 


03 




LDA 


#*03 


0029 


0366 


8D 


43 


AO 


STA 


LSTVEC+1 


0030 

M 

0031 


0369 


A9 


36 




LDA 


#*36 


036B 


85 


01 




STA 


1 


0032 


036D 


60 






RTS 




0033 


036E 


A5 


7A 




NEWLST LDA 


CHRPTR 


0034 


0370 


48 






PHA 




POINTER 












0035 


0371 


A5 


7B 




LDA 


CHRPTR+1 


0036 


0373 


48 






PHA 




0037 


0374 


20 


79 


00 


JSR 


CHRBOT 


RACTER 












0038 


0377 


20 


9C 


A6 


JSR 


LIST 


0039 


037A 


20 


D7 


AA 


JSR 


CRLF 


0040 


037D 


68 






PLA 




0041 


037E 


85 


7B 




STA 


CHRPTR+1 


0042 


0380 


68 






PLA 




POINTER BACK 











5 CASSETTE BUF 

5 PROGRAM POIN 

5 GET LAST CHA 

5 LIST ROUTINE 
5 POINTER TO L 

5 SET PROGRAM 

;T0 NEXT STAT 

5 OUTPUT CR 

5 COPY 32 PAGE 

J POINTER TO S 



! TRANSFER LOO 



;RTS CODE 
,-NOP CODE 

; POINTER TO N 

5 SWITCH TO RA 

5 SAVE PROGRAM 

5 GET LAST CHA 

; EXECUTE LIST 
3 OUTPUT CR 

SGET PROGRAM 
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0043 0381 85 7 A STA CHRPTR 

0044 0383 20 FB A8 JSR NEXTST 
EXT STATEMENT 

0045 0386 4C 79 00 JMP CHRGOT 
RACTER 

Here is the loader program in BASIC. 



Tip^B 



; POINTER TO N 
;SET LAST CHA 



100 
110 



120 
130 
140 
150 
160 
170 
180 
190 



200 



FOR 1=828 TO 904 
READ X: 
POKE i,x: 
s=s+x: 

NEXT 
DATA 162,32, 169,160,160,0,132,34, 133,35,177,34 
DATA 145, 34, 200, 208, 249, 230, 35, 202, 208, 244, 169, 96 
DATA 141,20, 167,169,234, 141, 187,166, 141, 188,166,169 
DATA 109, 141,66, 160, 169,3, 141,67,160, 169,54,133 
DATA 1,96, 165, 122,72, 165, 123,72,32, 121,0,32 
DATA 156, 166,32,215,170, 104, 133,123. 104, 133,122,32 
DATA 248,168,76,121,0 
IF S09613 

THEN PRINT "ERROR IN DATA!!": 
END 
PRINT "OK" 



If you run the following BASIC program before and after the 
SYS 828, you can see the difference. 

100 PRINT "LIST-TEST" 
110 LIST 120 
120 GOTO 100 
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4.5 Calculated line numbers with GOTO, GOSUB, and RESTORE 



Whenever you want to make a program branch or call a 
subroutine, you must know the exact line number of the point 
you wish to call. In some cases, it would make programming 
easier if the line number could ,be calculated while the 
program is running, such as the following program assumes. 

100 PRINT "LINE NUMBER " ; L 
110 GOTO L 



This could be done with an extensive set of ON ... GOTO 

statements, and the same applies to the GOSUB command, but 

it would be much easier if calculated line numbers were 
allowed. 

Another useful extension would be to allow a line 
number in the RESTORE command. If one has several different 
blocks of data which are to be read several times, one can 
only reset the READ/DATA pointer to the beginning of the 
data and then read over a quantity of unwanted data until 
the desired data are reached. RBSTORE with a line number 
allows the data pointer to be set to any desired line. 

The modification of the GOTO command can be 
accomplished with a few POKEs. He need only replace the call 
to get the line number with a routine that will get and 
evaluate a numeric expression. In doing so we also change 
the GOSUB routine, since GOSUB calls the GOTO routine. 
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A8A0 20 CO 02 JSR $02C0 



02C0 20 8A AD 
02C3 4C F7 B7 



JSR $AD8A 
JMP $B7F7 



Here we have placed the additional code at $02C0 (704), 
which is free so long as sprite 11 is not used. 

The following BASIC program will place the code in memory: 

100 FOR 1=40960 TO 49151 

110 POKE I, PBEK(I) : NEXT 

120 A=10*4096+8*256+10*16 

130 FOR I=A TO A+2 

140 RBAD X : POKE I,X : NBXT 

150 A=704 

160 FOR I=A TO A+5 

170 RBA0 X : POKE I,X : NEXT 

200 DATA 32,192,2 

210 DATA 32,138,173,76,247,183 

Now we have taken care of the GOTO and GOSUB commands. 
The RESTORE command is somewhat more complicated because 
there is normally no line number associated with it. We must 
distinguish between a plain RESTORE command and a RESTORE 
command with a line number. As it turns out, this is not 
difficult. 



02C6 DO 03 
02C8 4C ID A8 
02CB 20 CO 02 
02CB 20 13 A6 



BNE $02C8 ; additional characters? 
JMP $A81D ;to old RESTORE command 
JSR $02C0 ;get line number 
JSR $A613 ; calculate address of the 

line number 
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0201 38 
02D2 A5 5F 
02D4 E9 01 
0206 A4 60 
0208 4C 24 A8 



SEC 

LDA $5F 
SBC #$01 
LDY $60 
JMP $A824 



{address low 

{subtract one 

; address high 

; continue as per old RESTORE 



Again, we can place the code in memory with a small BASIC 
program: 

300 A=2*256+12*16+6 

310 FOR I=A TO A+20 

320 READ X : POKE I,X : NEXT 

330 DATA 208,3,76,29,168,32,192,2,32,19,166 

340 DATA 56,165,95,233,1,164,96,76,36,168 

Now we must tell the interpreter where the new RESTORE 
routine is located. Add these lines to the others above: 



400 POKE 40996, 197 
410 POKE 1,54 



POKE 40997, 2 



Line 410 switches over to the RAM. You can now use the 
RESTORE command in three different ways: 

First, without the line number, as before, second with 
a line number, or third, with an expression which will yield 
a line number once evaluated. If a line number is specified, 
the next READ command will read the first DATA element on 
the line specified. If this line does not exist, no error 
message will be given and the pointer will be set to the 
next line. The following program structure is now possible. 
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100 GOTO 200 

200 RESTORE 10 

500 RESTORE 

800 60SUB A*2+100 

900 RESTORE X*100+500 
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4.6 The MID$ command 



You are no doubt familiar with the MID$ function, a 
string function which isolates a part of an alphanumeric 
string. The following program fragment 

100 A$ = "TBSTSTRING" 
110 B$ = MID$(A$,5,3) 
120 PRINT B$ 

produces the output 

STR 

In this section we offer an enhancement of the MID$ 
function which allows not only extracting parts of a string 
but also assignments to parts of a string. With the new 
command the following type of programming is possible: 

100 A$ = "TESTSTRING" 
110 MID* (A$,5,3) = "123" 
120 PRINT A$ 

Here three characters at position five are replaced with the 
string "123"; the result is 

TBST123ING 

Without this new MID$ command, the string would have to be 
divided into two parts and then the parts recombined with 
the string to be inserted: 
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100 A$ = "TBSTSTRING" 

110 A$ = LEFT$(A$,4) + "123" + MID$(A$,7,3) 

120 PRINT A$ 

This command is very useful for replacing individual parts 
(fields) of a data record. To do this, one defines a string 
with length equal to the length of the data record and 
inserts the values of the individual fields with the new 
MID$ command. 



The command is again implemented through 
language program. 

0001 033C 
EUDOVARIABLE 

0002 033C 

0003 033C 

AR I ABLE , POS I T I ON , LENBTH ) 

0004 033C 
ARIABLE, POSITION) = STRIN6 

0005 033C 

0006 033C 

0007 033C 

TATEMENT EXECUTION 
000B 033C 



STRINGEXPRESSION 



small machine 

5 MID* AS A PS 

SMID*<5TRINGV 
!IMID$(STRINGV 



0009 


033C 


00 1 


033C 


0011 


033C 


0012 


033C 


0013 


033C 


0014 


033C 


00 1 5 


033C 


00 1 6 


033C 


0017 


033C 


ESIS 




0018 


033C 


HESIS 


0019 


033C 


0020 


033C 


0021 


033C 


0022 


033C 


0023 


033C 


0024 


033C 


0025 


033C 


0026 


033C 


0027 


033C 


0028 


033C 



STRIN6 


EXPRESSION 




MIDCOD 


EQU 


*CA 


^ 


EXECUT 


EQU 


$308 


5 VECTOR FOR S 


CHRBET 


EQU 


*73 




CHRBOT 


EQU 


CHRGET+6 




EXECOL 


EQU 


*A7E7 




VARNAM 


EQU 


$45 




VARADR 


EQU 


*49 




DESCRP 


EQU 


*64 




TESTBT 


EQU 


4AD8F 




GETVAR 


EQU 


*B08B 




SETSTR 


EQU 


*AA52 




CHKOPN 


EQU 


*AEFA 


5 OPEN PARENTH 


CHKCLO 


EQU 


*AEF7 


; CLOSE PARENT 


CHKCOM 


EQU 


*AEFD 


; COMMA 


TEST 


EQU 


*AEFF 




GETBYT 


EQU 


*B79E 




FRMEVL 


EQU 


*AD9E 




ILLQUA 


EQU 


$B248 




FRESTR 


EQU 


*B6A3 




LENGTH 


EQU 


$03 




POSITN 


EQU 


*04 




VARSTR 


EQU 


*05 




EQUAL 


EQU 


*B2 
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0029 033C 

0030 033C 

0031 033C 

0032 033C A9 47 

0033 033E A0 03 

0034 0340 8D 08 03 

0035 0343 8C 09 03 

0036 0346 60 

0037 0347 20 73 00 

0038 034A C9 CA 



0039 034C FO 

0040 034E 20 

0041 0351 4C 
AL STATEMENT 

0042 0354 20 
ER 

0043 0357 20 

0044 035A 20 

0045 035D 85 

0046 035F 84 

0047 0361 85 

0048 0363 84 

0049 0365 20 

0050 0368 AO 

0051 036A Bl 

0052 036C 48 

0053 036D FO 

0054 036F 20 
INS TO RAM 

0055 0372 AO 

0056 0374 Bl 

0057 0376 85 
E ADDRESS 

0058 0378 C8 

0059 0379 Bl 

0060 037B 85 

0061 037D 20 

0062 0380 20 

0063 0383 8A 

0064 0384 FO 

0065 0386 CA 

0066 0387 86 

0067 0389 20 

0068 038C C9 
SB I ON? 

0069 038E DO 

0070 0390 A9 

0071 0392 DO 

0072 0394 20 

0073 0397 20 

0074 039A 8A 

0075 039B DO 

0076 039D 4C 

0077 03A0 85 



06 

79 00 
E7 A7 



P0INT2 EQU $50 

ORG 828 

INIT LDA 4KMIDTES 
LDY #>MIDTES 
STA EXECUT 
STY EXECUT+1 
RTS 

MIDTES JSR CHR6ET 
CMP #MIDCOD 

BEQ MIDSTR 
JSR CHRGOT 
JMP EXECOL 



73 00 MIDSTR JSR CHR6ET 



; code for mid 

;yes 

5 EXECUTE NORM 

SNEXT CHARACT 



FA AE 




JSR 


CHKOPN 


?OPEN PAREN 


SB BO 




JSR 


GETVAR 


5 GET VARIABLE 


64 




STA 


DESCRP 




65 




STY 


DESCRP+1 




49 




STA 


VARADR 




4A 




STY 


VARADR+1 




A3 B6 




JSR 


FRESTR 




00 




LDY 


#0 




64 




LDA 
PHA 


< DESCRP ),Y 


5 LENGTH 


2E 




BEQ 


ILL 




52 AA 




JSR 


SETSTR 


; TRANSFER STR 


01 




LDY 


#1 




49 




LDA 


(VARADR),Y 




05 




STA 
I NY 


VARSTR 


5SAVE VARIABL 


49 




LDA 


(VARADR), Y 




06 




STA 


VARSTR+1 




FD AE 




JSR 


CHKCOM 




9E B7 




JSR 
TXA 


GETBYT 


SGET POSITION 


17 




BEQ 
DEX 


ILL 




04 




STX 


POSITN 




79 00 




JSR 


CHRGOT 




29 




CMP 


#' ) ' 


;end of expre 


04 




BNE 


NEXT 




FF 




LDA 


#*FF 


UMAX. LENGTH 


OC 




BNE 


STORE 




FD AE 


NEXT 


JSR 


CHKCOM 




9E B7 




JSR 
TXA 


GETBYT 


SGET LENGTH 


03 




BNE 


STORE 




48 B2 


ILL 


JMP 


ILLQUA 




03 


STORE 


STA 
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0078 


03A2 


68 






PLA 






0079 


03A3 


38 






SEC 






0080 


03A4 


E5 


04 




SBC 


POSITN 




0081 


03A6 


C5 


03 




CMP 


LENGTH 




0082 


03AS 


BO 


02 




BCS 


OK 




0083 


03AA 


85 


03 




STA 


LENGTH 




0084 


03AC 


20 


F7 


AE OK 


JSR 


CHKCLO 


5 CLOSE PAREN 


0085 


03AF 


A9 


B2 




LDA 


#EQUAL 




0086 


03B1 


20 


FF 


AE 


JSR 


TEST 




0087 


03B4 


20 


9E 


AD 


JSR 


FRMEVL 


SGET EXPRESS I 


ON 
















0088 


03B7 


20 


A3 


B6 


JSR 


FRESTR 




0089 


03BA 


AO 


02 




LDY 


#2 




0090 


03BC 


Bl 


64 




LDA 


(DESCRP),Y 




009 1 


03BE 


85 


51 




STA 


P0INT2+1 




0092 


03C0 


88 






DEY 






0093 


03C1 


Bl 


64 




LDA 


<DESCRP) ,Y 




0094 


03C3 


85 


50 




STA 


P0INT2 




0095 


03C5 


88 






DEY 






0096 


03C6 


Bl 


64 




LDA 


(DESCRP) ,Y 




0097 


03C8 


FO 


D3 




BEQ 


ILL 


5 ZERO, THEN E 


RROR 
















0098 


03CA 


C5 


03 




CMP 


LENGTH 




0099 


03CC 


BO 


02 




BCS 


OKI 




1 00 


03CE 


85 


03 




STA 


LENGTH 




0101 


03D0 


A5 


05 


OKI 


LDA 


VARSTR 




0102 


03D2 


18 






CLC 






0103 


03D3 


65 


04 




ADC 


POSITN 




0104 


03D5 


85 


05 




STA 


VARSTR 




0105 


03D7 


90 


04 




BCC 


LOOP 




0106 


03D9 


E6 


06 




INC 


VARSTR+1 




0107 


03DB 


A4 


03 




LDY 


LENGTH 




0108 


03DD 


88 




LOOP 


DEY 






0109 


03DE 


Bl 


50 




LDA 


<P0INT2)„Y 


; CHARACTER FR 


OM STRING 


EXPRESSION 








0110 


03E0 


91 


05 




STA 


( VARSTR ),Y 


; TRANSFER TO 


STRING VARIABLE 










0111 


03E2 


CO 


00 




CPY 


#0 




0112 


03E4 


DO 


F7 




BNE 


LOOP 




0113 


03E6 


4C 


AE 


A7 


J MP 


$A7AE 


;to INTERPRET 


ER LOOP 















ASSEMBLY COMPLETE. 
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After entering the program, initialize the command expansion 
by typing 

SYS 828 

The following BASIC loader program does the initialization 
automatically. 



100 FOR 1=828 TO 10OO 
110 READ X: 

POKE I,X: 

s=s+x: 

NEXT 
120 DATA 169,71,160,3,141,8,3,140,9,3,96,32 
130 DATA 113,0,201,202,240,6,32,121,0,76,231,167 
140 DATA 32,115,0,32,250,174,32,139,176,133,100,132 
150 DATA 101, 133,73, 132,74,32, 163, 182, 160,0, 177, 100 
160 DATA 72,240.46,32,82,170,160.1,177,73,133,5 
170 DATA 200,177,73,133,6,32,253.174,32.158,183,138 
180 DATA 240,23,202,134,4,32,121,0,201,41,208,4 
190 DATA 169.255,208,12,32,253,174,32.158,183,138,208 
200 DATA 3,76,72,178,133,3,104,56,229,4,197,3 
210 DATA 176,2,133,3,32,247,174,169,178,32,255,174 
220 DATA 32, 158, 173,32, 163, 182, 160,2, 177, 100, 133,81 
230 DATA 136,177,100,133,80,136,177,100,240,211,197,3 
240 DATA 176,2, 133, 3, -165, 5, 24, 101,4, 133,5, 144 
250 DATA 2,230,6,164,3,136,177,80,145.5.192,0 
260 DATA 208,247,76, 174, 167 
270 IF SO 19273 

THEN PRINT "ERROR IN DATA!!": 
END 
280 SYS 828: 

PRINT "OK" 
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As an example and test of the new function, try this 
program: 



100 DIM A$(10) 

110 FOR I = 1 TO 10 

120 A$(I) = "TESTSTRING" 

130 NEXT 

140 FOR I = 1 TO 10 

150 MID$ (A$(I),I,1) = MID$("1234567890",I,1) 

160 NEXT 

170 FOR I = 1 TO 10 

180 PRINT A$(I) 

190 NEXT 

The output of the program is ten strings. In the first 
string, the first character is replaced with a "1", in the 
second string the second character is replaced with a "2", 
and so on: 

1ESTSTRING 
T2STSTRING 
TE3TSTRING 
TES4STRING 
TEST5TRING 
TESTS6RING 
TESTST7ING 
TESTSTR8NG 
TESTSTRI9G 
TESTSTRIN0 
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4.7 INSTR and STRING* functions 



Many other computers have two very useful string 
functions which the Commodore 64 lacks. The first function, 
usually called STRING$, creates a string of desired length 
filled with any given character. The second, often called 
INSTR, checks to see if a given string is contained within 
another. 

With a knowledge of the BASIC interpreter and the 
string management of the Commodore 64, it is possible to 
implement these functions on the 64 as well. We will use the 
existing command words "POS" and "STR$" for these functions, 
differentiated from the current BASIC commands with a 
preceding "!". 

The INSTR function has the following syntax: 

I=!POS(A$,B$,P) 

A$ is the string to be searched, B$ is the string whose 
occurrence in A$ you wish to check for, and P is the 
position at which the search will start. The result is 
assigned to the variable I, and if zero, then the sought- 
after string was not found. If the second string was found 
in the first, I contains the position at which it was found. 
The input of the position P is optional; if it is not given, 
the search starts at the beginning of the string. 
Expressions or functions may be used in place of the 
variables. 
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Here are some examples of its use: 

PRINT ! POS ( " ABCDBFGHI JK" , "D" ) 
4 

IF !POS(A$,*'J") THEN PRINT "FOUND' 

A$ = "TBSTSTRING" 
PRINT !POS(A$,"T") 
X 

X = !POS(A$,"T",5) : PRINT X 
6 



The STRINGS function is used as follows: 

A$ = !STR$(L,B) 
or 

A$ = !STR$(I,,B$) 

Here A$ is the string which we want to create. L is the 
length the string will have and B is the ASCII code of the 
character with which the string will be filled. If a string 
is used instead of B, the ASCII code of the first character 
of this string is used. The following examples demonstrate 
the use of the STRINGS function: 



99 



Tricks & Tips 



PRINT !STR$(20,65) 
AAAAAAAAAAAAAAAAAAAA 



A$ = !STR$(10,"*") 

********** 



PRINT A$ 



The machine language program is placed in free memory and 
begins at address 51200. 



0003 C800 

0004 C800 

0005 C800 

0006 C800 

0007 £800 

0008 C800 

0009 C800 

00 10 C800 

0011 C800 

0012 C800 

0013 C800 

0014 C800 

0015 C800 

0016 C800 

0017 C800 

0018 C800 

0019 C800 

0020 C800 

0021 C800 

0022 C800 

0023 C800 

0024 C800 

0025 C800 

0026 C800 

0027 C800 

0028 C800 

0029 C800 

0030 C800 A9 OB 

0031 C802 AO C8 

0032 C804 8D OA 03 

0033 C807 8C OB 03 

0034 C80A 60 

0035 C80B A9 00 

0036 C80D 85 OD 

0037 C80F 20 73 00 

0038 C812 C9 21 

0039 C814 FO 06 



CHKOPN 

CHKCLO 

CHKCOM 

FRMEVL 

CHKSTR 

FRESTR 

YFAC 

CHRGET 

CHRGOT 

GETBYT 

INTEGE 

DESCRP 

STRADR 

ADDR2 

ADDR1 

LEN1 

LEN2 

NUMBER 

START 

TYPFLG 

STRCOD 

ILLQUA 

SYNTAX 

POSCOD 

VECTOR 

TEMP 



TEST IN 



ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
LDA 
LDY 
STA 
STY 
RTS 
LDA 
STA 
JSR 
CMP 
BEQ 



*C800 

*AEFA 

*AEF7 

*AEFD 

*AD9E 

*AD8F 

*B6A3 

*B3A2 

*73 

CHRGET+6 

*B79B 

*B1AA 

*64 

*62 

*FB 

*FB+2 

3 

4 

5 

6 

13 

*C4 

*B248 

*AF08 

*B9 

*30A 

LEN1 

#< TEST IN 

#>TESTIN 

VECTOR 

VECTOR+1 

#0 

TYPFLG 
CHRGET 
#' ! ' 
TEST2 
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0040 


C816 


20 


79 


00 


OSR 


CHRGOT 


0041 


C819 


4C 


8D 


AE 


JMP 


*AE8D 


0042 


C81C 


20 


73 


00 TEST2 


JSR 


CHRGET 


0043 


C81F 


C9 


B9 




CMP 


#POSCOD 


0044 


C821 


FO 


OA 




BEQ 


INSTR 


0045 


C823 


C9 


C4 




CMP 


#STRCOD 


0046 


C825 


DO 


03 




BNE 


LB1 


0047 


C827 


4C 


Bl 


CB 


JMP 


STRING 


0048 


C82A 


4C 


08 


AF LB1 


JMP 


SYNTAX 


0049 


C82D 


20 


73 


00 INSTR 


JSR 


CHRGET 


0050 


C830 


20 


FA 


AE 


JSR 


CHKOPN 


0051 


C833 


20 


9E 


AD 


JSR 


FRMEVL 


ON 














0052 


C836 


20 


8F 


AD 


JSR 


CHKSTR 


0053 


CB39 


A5 


64 




LDA 


DESCRP 


0054 


C83B 


48 






PHA 




SS ON STACK 










0055 


C83C 


A5 


65 




LDA 


DESCRP+1 


0056 


C83E 


48 






PHA 




0057 


C83F 


20 


FD 


AE 


JSR 


CHKCOM 


0058 

6 

0059 


C842 


20 


9E 


AD 


JSR 


FRMEVL 


C845 


20 


A3 


B6 


JSR 


FRESTR 


0060 


CB48 


FO 


64 




BEQ 


ILL 


0061 


C84A 


85 


04 




STA 


LEN2 


0062 


C84C 


86 


FB 




STX 


ADDR2 


0063 


C84E 


84 


FC 




STY 


ADDR2+1 


0064 


C850 


68 






PLA 




0065 


C851 


A8 






TAY 




0066 


C852 


68 






PLA 




ADDRESS 












0067 


C853 


20 


AA 


B6 


JSR 


FRESTR+7 


0068 


CB56 


FO 


56 




BEQ 


ILL 


0069 


C858 


85 


03 




STA 


LEN1 


0070 


CB5A 


86 


FD 




STX 


ADDR1 


0071 


C85C 


84 


FE 




STY 


ADDR1+1 


0072 


CB5E 


A2 


00 




LDX 


#0 


THIRD PARAMETER 








0073 


C860 


20 


79 


00 


JSR 


CHRGOT 


0074 


C863 


C9 


2C 




CMP 


#'.' 


0075 


C865 


DO 


07 




BNE 


LI 


0076 


C867 


20 


9B 


B7 


JSR 


GETBYT 


0077 


C86A 


BA 






TXA 




ON 














0078 


C86B 


FO 


41 




BEQ 


ILL 


0079 


C86D 


CA 






DEX 




0080 


C86E 


86 


06 


LI 


STX 


START 


ON IN STRING 










0081 


C870 


20 


F7 


AE 


JSR 


CHKCLO 


0082 


C873 


A5 


03 




LDA 


LEN1 


0083 


C875 


38 






SEC 




0084 


C876 


E5 


04 




SBC 


LEN2 


0085 


C878 


90 


28 




BCC 


END 


0086 


C87A 


69 


00 




ADC 


mo 



5 OPEN PAREN 
5 GET EXPRESS I 

5 TEST STRING 

; STRING ADDRE 



; COMMA 

; SECOND STRIN 



S LENGTH=0 



; FIRST STRING 



5 DEFAULT FOR 

; START POSITI 

5 START POSITI 

;LEN2>LEN1 
5 RESULT 0? 
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0087 CB7C 
S 

0088 C87E 


85 


05 




STA 


NUMBER 


A5 


06 




LDA 


START 


0089 C880 


18 






CLC 




US START POSITION 








0090 C881 


65 


FD 




ADC 


ADDR1 


0091 C883 


85 


FD 




STA 


ADDR1 


0092 C885 


90 


04 




BCC 


L3 


0093 CS87 


E6 


FE 




INC 


ADDR1+1 


0094 C889 


AC 


00 


L2 


LDY 


#0 


0095 C88B 


Bl 


FB 


L3 


LDA 


(ADDR2) ,Y 


0096 C88D 


Dl 


FD 




CMP 


(ADDR1),Y 


ACTERS 












0097 C88F 


DO 


OB 




BNE 


L5 


XT POSITION 










0098 C891 


C8 






I NY 




0099 C892 


C4 


04 




CPY 


LEN2 


RS OF STRING2 TESTED? 






0100 CB94 


90 


F5 




BCC 


L3 


0101 C896 


A4 


06 




LDY 


START 


0102 C89B 


C8 






I NY 




0103 C899 


4C 


A2 B3 


L4 


J MP 


YFAC 


0104 C89C 


E6 


06 


L5 


INC 


START 


0105 C89E 


C6 


05 




DEC 


NUMBER 


0106 CBAO 


DO 


04 




BNE 


L6 


0107 C8A2 


AO 


00 


END 


LDY 


#0 


ERO 












0108 CSA4 


FO 


F3 




BEQ 


L4 


0109 C8A6 


E6 


FD 


L6 


INC 


ADDR1 


0110 C8A8 


DO 


DF 




BNE 


L2 


RING2 ADDRESS 








0111 C8AA 


E6 


FE 




INC 


ADDR1+1 


0112 C8AC 


DO 


DB 




BNE 


L2 


0113 C8AE 


4C 


48 B2 


ILL 


J MP 


ILLQUA 



0114 C8B1 

0115 C8B1 
TION 

0116 C8B1 
0117'C8B1 20 73 00 

0118 C8B4 20 FA AE 

0119 C8B7 20 9E B7 

0120 C8BA 8 A 

0121 C8BB 4B 

0122 C8BC 

0123 C8BF 

0124 C8C2 

0125 C8C4 30 OC 

0126 C8C6 20 AA Bl 

0127 CBC9 A5 64 

0128 C8CB DO El 

0129 C8CD A5 65 
NGTH 

0130 CBCF 4C DB CB 

0131 C8D2 20 82 B7 
LG TO NUMERIC 



20 


FD 


AE 


20 


9E 


AD 


24 


OD 





STRING JSR 


CHRGET 


JSR 


CHKOPN 


JSR 


GETBYT+3 


TXA 




PHA 




JSR 


CHKCOM 


JSR 


FRMEVL 


BIT 


TYPFLG 


BMI 


STR 


JSR 


INTEGE 


LDA 


DESCRP 


BNE 


ILL 


LDA 


DESCRP+1 


J MP 


STR2 


STR JSR 


*B782 



iOF THE SHIFT 



; ADDRESS 1 PL 



; COMPARE CHAR 
5 SEARCH AT NE 

;ALL CHARACTE 
; RESULT 



;NOT DONE? 
SNOT FOUND, Z 



; INCREMENT ST 



j STRING* FUNC 



;OPEN PAREN 



iSAVE LENGTH 



5 STRING 

;HIGH BYTE 

5>255 

;LOW BYTE, LE 



iSETSTR, TYPF 
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0132 C8D5 FO D7 

0133 C8D7 AO 00 

0134 C8D9 Bl 22 
TER 

0135 C8DB 85 03 

0136 C8DD 68 

0137 C8DE 20 7D B4 

0138 C8E1 A8 

0139 C8E2 FO 07 

0140 C8E4 A5 03 

0141 C8E6 88 

0142 C8E7 91 62 
6 

0143 C8E9 DO FB 

0144 C8EB 20 CA B4 
N DESCRIPTOR STACK 

0145 C8EE 4C F7 AE 

ASSEMBLY COMPLETE. 



BEQ ILL 

LDY #0 

LDA <*22),Y 

STR2 STA TEMP 

PLA 

JSR *B47D 

TAY 

BEQ STR3 

LDA TEMP 
LOOP DEY 

STA (STRADR),Y 

BNE LOOP 
STR3 J BR *B4CA 

JMP CHKCLO 



5 LENGTH ZERO 
5 FIRST CHAR AC 



; LENGTH 

;frestr 



II CREATE STRIN 



5 PUT STRING I 
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100 FOR 1=51200 TO 51440 
110 READ X: 

POKE i,x: 

s=s+x: 

NEXT 

120 DATA 169,11,160,200,141,10,3,140,11,3,96,169 

130 DATA 0,133,13,32,115,0,201,33,240,6,32,121 

140 DATA 0,76,141,174,32,115,0,201,185,240,10,201 

150 DATA 196,208,3,76,177,200,76,8,175,32,115,0 

160 DATA 32,250,174,32,158,173,32,143,173,165,100,72 

170 DATA 165,101,72,32,253,174,32,158,173,32,163,182 

180 DATA 240,100,133,4,134,251,132,252,104,168,104,32 

190 DATA 170,182,240,86,133,3,134,253,132,254,162,0 

200 DATA 32, 121, 0,201, 44, 20B, 7, 32, 155, 183,138,240 

210 DATA 65,202,134,6,32,247,174,165,3,56,229,4 

220 DATA 144,40,105,0,133,5,165,6,24,101,253,133 

230 DATA 253,144,2,230,254,160,0,177,251,209,253,208 

240 DATA 11,200,196,4,144,245,164,6,200,76,162,179 

250 DATA 230,6,198,5,208,4,160,0,240,243,230,253 

260 DATA 208,223,230,254,208,219,76,72,178,32,115,0 

270 DATA 32,250, 174,32, 15B, 183, 138,72,32,253, 174,32 

280 DATA 158,173,36,13,48,12,32,170,177,165,100,208 

290 DATA 225,165,101,76,219,200,32,130,183,240,215,160 

300 DATA 0,177,34,133,3,104,32,125,180,168,240,7 

310 DATA 165,3,136,145,98,208,251,32,202,180,76,247 

320 DATA 174 

330 IF SO30119 

THEN PRINT "ERROR IN DATA!!": 
END 

340 SYS 51200: 

PRINT "OK" 
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4.8 Automatic line numbering 



In this section we want to present a useful command for 
the Commodore 64 which makes it much easier to enter 
programs. This command, similar to the "AUTO" command found 
on other computers, will automatically create line numbers 
for you so that you do not have to type them in yourself. 
You can set both the starting line number and the increment 
by which each successive line number will be increased. It 
is quite simple to use this new command: 

To turn on the automatic line numbering, enter the 
following command: 

SYS 828, startnumber, increment 

Ex. SYS 828, 100, 10 

The increment may be an integer value up to 255. After 
entering the SYS command, the first line number is printed 
and the cursor is placed behind it. You can enter the 
program line directly and press RETURN when done. Now the 
next line number will be displayed automatically, line 110 
in our example. 

100 INPUT " INPUT" ;A$ 
110 

To end the AUTO command, simply press RETURN without 
typing anything else on a line. If you later want to 
continue entering lines, you need only enter 
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SYS 828 

The line number at which you left off will automatically be 
displayed. You can of course change the starting line number 
and increment at any time by entering these along with the 
SYS command. 

The machine language program is stored in the cassette 
buffer. Following this assembly language listing is again a 
loader program in BASIC. 



000 1 


033C 






ORG 


828 


FER 












0002 


033C 




Lo- 


EQU 


*14 


0003 


033C 




rn 


EQU 


LO+1 


0004 


033C 




FAC 


EQU 


*62 


NT ACCUMULATOR 








0005 


033C 




CR 


EQU 


13 


URN 












0006 


033C 




LINE 


EQU 


251 


0007 


033C 




I NCR 


EQU 


LINE+2 


0008 


033C 




INTFLT 


EQU 


*BC49 


LOATING POIN" 


r 








0009 


033C 




FLTASC 


EQU 


*BDDD 


NT 


ASCII 










0010 


033C 




VECTOR 


EQU 


*302 


00 11 


033C 




INPUT 


EQU 


*FFCF 


0012 


033C 




PRINT 


EQU 


*FFD2 


00 1 3 


033C 




BUFFI 


EQU 


*101 


0014 


033C 




BUFF2 


EQU 


$200 


00 1 5 


033C 




MNLOOP 


EQU 


*A486 


0016 


033C 




GOON 


EQU 


*A569 


0017 


033C 




CONT 


EQU 


*A576 


0018 


033C 




CHRGOT 


EQU 


$79 


00 1 9 


033C 




OLDVEC 


EQU 


*A483 


0020 


033C 




6ETPAR 


EQU 


*B7EB 


0021 


033C 




CHK'COM 


EQU 


*AEFD 


0022 


033C 20 


79 00 




JSR 


CHRGOT 


HARACTERS? 










0023 


033F FO 


10 




BEQ 


LO 


0024 


0341 20 


FD AE 




JSR 


CHKCOM 


0025 

R 

0026 


0344 20 


EB B7 




JSR 


GETPAR 


0347 86 


FD 




STX 


I NCR 


0027 


0349 A5 


14 




LDA 


LO 


0028 


034B 85 


FB 




STA 


LINE 


0029 


034D AS 


15 




LDA 


HI 



; CASSETTE BUF 

5FL0ATING-P0I 

; CARRIAGE RET 

5 LINE 

; INCREMENT 

5 INTEGER TO F 

5 FLOATING POI 

5 LINE INPUT 



5 ADDITIONAL C 

jNO 

5 COMMA? 

SGET PARAMETE 



5 AND SAVE 
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0030 


034F 


85 


FC 






STA 


LINE+1 


0031 


0351 


A9 


5C 




LO 


LDA 


#<AUTO 


0032 


0353 


8D 


02 


03 




STA 


VECTOR 


CTOR 
















0033 


0356 


A9 


03 






LDA 


#>AUTO 


0034 


0358 


8D 


03 


03 




STA 


VECTQR+1 


0035 


035B 


60 








RTS 




0036 


035C 














0037 


035C 


20 


62 


03 


AUTO 


JSR 


AUTNUM 


0038 


035F 


4C 


86 


A4 




J MP 


MNLOOP 


0039 


0362 














0040 


0362 


AS 


FB 




AUTNUM 


LDA 


LINE 


0041 


0364 


A6 


FC 






LDX 


LINE+1 


0042 


0366 


85 


63 






STA 


FAC+1 


0043 


0368 


86 


62 






STX 


FAC 


0044 


036A 


A2 


90 






LDX 


#*90 


0045 


036C 


38 








SEC 




0046 


036D 


20 


49 


BC 




JSR 


INTFLT 


POINT 














0047 


0370 


20 


DD 


BD 




JSR 


FLTASC 


0048 


0373 


A2 


00 






LDX 


#0 


0049 


0375 


BD 


01 


01 


LI 


LDA 


BUFF1„X 


0050 


0378 


FO 


09 






BED 


L2 


0051 


037A 


91) 


00 


02 




STA 


BUFF2,X 


FER 
















0052 


037D 


20 


D2 


FF 




JSR 


PRINT 


0053 


0380 


E8 








I NX 




0054 


0381 


DO 


F2 






BNE 


LI 


0055 


0383 


AS 


FB 




L2 


LDA 


LINE 


0056 


0385 


18 








CLC 




0057 


0386 


65 


FD 






ADC 


I NCR 


0058 


0388 


85 


FB 






STA 


LINE 


0059 


038A 


90 


02 






BCC 


L3 


0060 


038C 


E6 


FC 






INC 


LINE+1 


006 1 


038E 


A9 


20 




L3 


LDA 


#32 


0062 


0390 


20 


D2 


FF 




JSR 


PRINT 


0063 


0393 


20 


CF 


FF 




JSR 


INPUT 


0064 


0396 


C9 


OD 






CMP 


#CR 


0065 


0398 


FO 


03 






BEQ 


L4 


0066 


039A 


4C 


69 


A5 




J MP 


GOON 


0067 


039D 


AS 


FB 




L4 


LDA 


LINE 


0068 


039F 


E5 


FD 






BBC 


I.NCR 


MBER 
















0069 


03A1 


85 


FB 






STA 


LINE 


0070 


03A3 


BO 


02 






BCS 


L5 


0071 


03A5 


C6 


FC 






DEC 


LINE+1 


0072 


03A7 


A9 


83 




L5 


LDA 


#<OLDVEC 


0073 


03A9 


AO 


A4 






LDY 


#>OLDVEC 


0074 


03AB 


BD 


02 


03 




STA 


VECTOR 


0075 


03AE 


8C 


03 


03 




STY 


VECTOR+1 


0076 


03B1 


4C 


76 


A5 




J MP 


CONT 



iSET INPUT VE 



5 LINE NUMBER 

5 1 TO FLOATING 
5 TO ASCII 
5 GET DIGITS 
5 IN BASIC BUF 
SAND OUTPUT 

SLINE NUMBER 



i OUTPUT SPACE 



5 EMPTY INPUT 

5 YES 

5 CONTINUE 

SNEXT LINE NU 



I PUT OLD 

i VECTOR BACK 



ASSEMBLY COMPLETE. 
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1 00 


FOR 1 


- 828 TO 947 










110 


READ 


X ! POKE I,X : S=S+X : NEXT 










1 20 


DATA 


32,121, 0,240, 16, 32,253 


174 32 


,235, 


183 


, 134 


1 30 


DATA 


253,165, 20,133,251,165, 21 


, 133,252 


, 169, 


92 


, 141 


140 


DATA 


2, 3,169, 3,141, 3, 3 


, 96, 32 


, 98, 


3 


, 76 


150 


DATA 


134, 164, 165,251, 166,252, 133 


, 99,134 


, 98, 


162 


, 144 


160 


DATA 


56, 32, 73,188, 32,221,189 


,162, 


,189, 


1 


, 1 


170 


DATA 


240, 9,157, 0, 2, 32,210 


255 232 


.208, 


242 


,165 


180 


DATA 


251, 24,101,253,133,251,144 


, 2 '230 


,252, 


169 


, 32 


190 


DATA 


32,21 , 255 , 32 , 207 , 255 , 20 1 


, 13,240 


. 3, 


76 


, 105 


200 


DATA 


165, 165,251,229,253, 133,251 


,176, 2 


,198, 


252 


, 169 


210 


DATA 


131,160,164,141, 2, 3,140 


1 3, 3 


, 76, 


118 


,165 


220 


IF S 


<> 15495 THEN PRINT "ERROR 


IN DATA! 


1 11 . 


END 




230 


PRINT "OK" « 
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4.9 User-defined functions — DBF FN 



Many programmers prefer to add more lines or 
subroutines to their program instead of simply defining 
their functions. Admittedly, this technique is not well- 
described in the user's guide, so we will try to clarify its 
use. In addition to the lack of emphasis in the 
documentation, there is another reason why this technique is 
not used: The function does not appear very powerful, at 
least at first glance, because only one argument may be 
passed to the user-defined functions. 

In this section we want first to illustrate the use of 
these functions and second, to show how complex multi- 
variable formulas can be implemented by nesting several 
functions. 

A function definition is constructed in the following 
manner: 

DEF FN name (function variable) = arithmetic expression 

Example: 

DEF FN A(X) = 2*X + B 

Our function has the name A and function variable X. 
When the function is called, the expression between the 
parentheses (it need not be X or even a variable) will be 
substituted for X in the arithmetic expression. Any 
variables with the name A or X will remain undisturbed. The 
function variable X is used only as a place holder for the 
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actual value given in the function call. In contrast, B 
implies the actual variable B which must be defined before 
calling the function. The function variable is often 
described as the dummy variable. The result of the function 
must always be numeric — a string expression is not allowed. 

As an example, we will define a formula which will 
round-off a value to the nearest hundreth — a function useful 
for working with dollar amounts. As you know, the third 
decimal place determines the rounding. If this value is 5 or 
greater, the second decimal place is increased by one 
(rounded up), else the number is merely truncated at the 
second decimal place (rounded down) . 

Most programmers would place this rounding function 
directly into the program: 

A = INT (B*100+.5)/100 

If this function must be used more than once, one can save 
time and space by replacing it with a function call 

A = FNX(B) 

First, however, the function must be defined: 

10 DBF FN R(B) = INT(B*100+. 5) /100 

100 A = FNR(B) 

The command in line 100 can be used as often as necessary 
in place of the longer formula, in which the variable B 
contains the value to be rounded. 
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Now an example of nesting functions. Here we will 
calculate the price of an item based on the cost, a given 
profit margin, and the sales tax. 

C is the cost 

P is the profit margin in % 

S is the sales tax in % 

10 DBF FN SL(C) = (C/( 1-P/100)*(1+S/100) ) 
20 DBF FN PR(B) = INT (FN SL(B)*100+.5)/100 

100 A = FN PR(C) 



After line 100, A contains the retail price, rounded to 
the nearest penny. Functions may also be nested deeper, of 
course. A maximum of ten functions may be nested. If you try 
to nest them any deeper, an "OUT OF MEMORY ERROR" will 
occur, indicating that the stack has overflowed (not 
necessarily that the BASIC program storage was exceeded). If 
subroutines (GOSUB) or FOR-NEXT loops are active during a FN 
call, the total nesting level including subroutines, FOR- 
NEXT loops, and FN levels must not exceed the maximum of ten 
levels. 
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4.10 BASIC HARDCOPY routine 

Have you ever tried to print the contents of the screen 
on your printer? There are a number of machine language 
program that allow you to do this, but it is also easy to do 
in BASIC. 

Since you must understand the operation of the program, 
you must first learn something about the construction of the 
screen memory. 

As you know, there are 1000 characters at your disposal 
on the screen. These 1000 characters are organized as 25 
lines of 40 characters each. These characters are naturally 
not only on the video display, but also stored in the 
Commodore 64' s memory. Normally, the area in which you will 
find the individual characters is in RAM from address 1024 
to 2023. In order to place on the paper all of the 
information on the screen, we must read the characters out 
of this memory area with PBEK and then print the 
corresponding values with the CHR$ function. It is important 
to note that the values in the range to 31 cannot be 
printed directly because these values belong to the ASCII 
range of control characters and are by nature non-printable. 

There is one other thing we must pay attention to. The 
lines on the screen are 40 characters long but a line on a 
printer normally consists of at least 80 characters. If you 
are familiar with programming in BASIC, you know that to 
print characters one after each other with multiple PRINT 
statements (screen or printer) requires that the PRINT 
statements be followed with a semicolon. For our hardcopy 
routine we must print 40 characters one after the other (one 
entire screen line) and then send a carriage return to the 
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printer so that the screen image is printed the same way it 
appears on the screen. We can accomplish this with nested 
loops. The completed program looks like this: 

50000 OPEN 4,4: REM OPEN PRINTER CHANNEL FOR UPPER/GRAPHICS 

50010 FOR 1=1024 TO 1984 STEP 40: REM 25 LINES 

50015 BL$="": REM ERASE LINE 

50020 FOR J=0 TO 39: REM 40 LINES 

50030 L=PEEK(I+J): REM READ CHARACTER 

50040 IF L<32 THEN L=L+64: REM CONVERT TO UPPER CASE 

50050 BL$=BL$+CHR$(L): REM BUILD LINE 

50060 NEXT J : REM NEXT CHARACTER 

50070 PRINT BL$: REM PRINT LINE 

50080 NEXT I: REM NEXT LINE 

50090 RETURN: REM BACK TO MAIN PROGRAM 

You may have noticed that we wrote this program 
slightly differently than we had discussed before. If you 
have seen a hardcopy routine in action, you may have noticed 
that a certain amount of time goes by before the printer 
actually prints the line after it has been sent. Why? Almost 
every printer works with something called a buffer (of 
varying size). The characters which the computer sends are 
placed into this buffer until it is full. Then the buffer is 
printed. The advantage of this is that an entire line can be 
printed faster than just one character at a time. It is for 
a similar reason that we first fill a text string (BL$) with 
the individual characters before we print it. The computer 
is able to send a 40-character string faster than it can 
send 40 individual characters. 

One other feature of this program is the conversion to 
upper case characters in line 50040. The upper case 
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characters in the Commodore 64 are stored in memory using 
a range of codes starting with 1. In standard ASCII however, 
this character range starts with 65, therefore, all numbers 
less than 32 are incremented by 64 to allow them to be 
printed correctly. 
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Chapter 5 : Forth 



5.1 Programming in Forth 

What is Forth? This is a question often asked by those 
who have only programmed in BASIC or assembly language up to 
this point. Certainly many of you will say "Why should I 
learn another programming language when my Commodore has a 
good version of BASIC?" This objection may seem justified at 
first, but after a closer look, one must consider if it 
really is justified, especially when a computer can speak 
more than one language. 

Once you have programmed in BASIC for a while, you will 
come across things which either cannot be done at all or are 
very difficult to do. On larger computers, one has the 
ability to switch to other languages. There is FORTRAN for 
mathematical applications, COBOL for commercial purposes, 
assembly language for time-critical tasks, BASIC for general 
problem solving and so on. Then there are languages designed 
to force structured programming such as Pascal and ELAN. 
Each language has its strengths and weaknesses. 

Forth belongs to the youngest generation of programming 
languages, as its name says, to the fourth generation. The 
developers of Forth have tried to implement all the 
advantages of the older, better-known languages without the 
disadvantages of these languages. 
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Forth has in its structure some very striking 
advantages, especially for microcomputers: 

1. The computer on which Forth runs requires a 
very small address space. Because Forth programs 
do not require much space, large, efficient 
programs can be created on a very small computer. 

2. Forth is ideally suited for performing low- 
level (machine-level) or I/O functions even 
though one need not be acquainted with the 
hardware of the device in any great detail in 
order to program in Forth. It is often used in 
industrial control applications and robotics. 

3. In addition to the first two advantages, Forth 
does not require a disk drive, although it is a 
good idea to have one. 



Forth consists of five parts: 

1. DICTIONARY: The philosophy of Forth is such 
that the set of commands in Forth which relate 
directly to machine language code is very small. 
The user is permitted to define his own commands 
and use these in subsequent programs. This allows 
you to personalize Forth or optimize for 
performing certain types of operations. The 
dictionary itself is a linked list containing the 
current Forth commands (called words) and 
information necessary to execute them. 

2. STACK: The stack is the most important element 
of Forth. The notion of a stack is familiar to 
anyone who has done any machine language 
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programming or who owns a Reverse Polish Notation 
(HPN) calculator. We will come back to this 
later. 

The stack uses the last-in/first-out (LIFO) 
method of data storage. Virtually all operations 
work with the stack. 

3. INTERPRETER: Forth, like BASIC, is an 
interpreter. This means that one first creates a 
Forth program with the editor and then starts the 
program with the appropriate command. Error 
checking occurs while the program is running. 
There is no tedious waiting while the program 
compiles; it can be started immediately. This has 
the result that interpreted programs are 
typically slower than compiled programs. The time 
factor difference is not as great with Forth. The 
interpreter is divided into a text interpreter 
and an address interpreter. The text interpreter 
checks the words in the dictionary, and when the 
word is found, the address interpreter is 
activated. This interpreter works with absolute 
addresses, calling in turn each of the words 
which make up a user-defined or higher — level 
Forth word. These addresses are "compiled" into a 
word's dictionary entry at the time it is 
defined. 

4. ASSEMBLER: Many Forth interpreters contain an 
assembler. This assembler can be used to define 
words which will then execute machine language 
routines when called. This method of programming 
is sometimes required for I/O — establishing 
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contact with the external world. Forth itself 
bears a certain resemblance to assembly language; 
it is quite fast, but far easier to learn. 

5. MEMORY: Memory is important for any 
programming language, and no less so for Forth, 
although it typically requires far less than 
other programming languages. In Forth, memory can 
be treated like blocks on a disk drive, and, to a 
certain extent, blocks on a disk drive can be 
treated like memory. 
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5.2 A comparison of Forth and BASIC 

The best way to see the advantages of Forth is to 
compare two programs, one written in Forth and the other in 
BASIC, which perform the same task. Before we present these 
programs, we must clarify a few things. 

In section 5.1 we mentioned that the stack plays a very 
important role in Forth, and that one can compare it to the 
method of operation of an RPN calculator (such as those made 
by Hewlett-Packard): 

Let's calculate (2 + 3) * (4 + 5) on an HP calculator. The 
keys we press are: 

2 <ENTEH> 3+4 <ENTKH> 5 + * 

This looks confusing at first, but it is necessary in order 
to solve the equation without using parentheses. Pressing 
"2" and then the ENTER key places the number 2 on the top of 
the stack. Pressing "3" places this number on the stack, 
first moving the 2 one place lower on the stack. The stack 
now looks like this: 

STACK: TOP 3 

2 



BOTTOM 
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After the "+" key is pressed, the addition is carried 
out. The "+" operation removes the top two values from the 
stack, adds then, and them pushes the result back onto the 
stack. The stack now looks like this: 



TOP 



BOTTOM 

Pressing the "4" key pushes the 5 down one place and puts 
the 4 on top: 

TOP 4 
5 



BOTTOM 

Entering the number 5 moves the old 5 and the 4 one place 
down on the stack: 
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TOP 



BOTTOM 

The "+" operation again removes the two most recently 
entered values from the stack, adds them and pushes the 
result back onto the stack. 



TOP 



9 
5 



BOTTOM 



The last operation is the multiplication, 
same way as the addition. 



It works in the 



TOP 



45 



BOTTOM 

Now the result is at our disposal. This process seems 
quite complicated and time-consuming, but each calculator 
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and computer works on this principle. On Hewlett-Packard 
calculators, as in Forth, this process is made explicit. 
Those who have done some programming in assembly language 
will be able to learn Forth with few difficulties, but even 
the novice learning Forth will have fewer problems than he 
might think. The greatest obstacle to learning Forth is that 
it is so different from most other languages, not that it is 
so difficult to understand on its own. 

We will now present a small Forth program which will 
clarify the operation of the stack and also illustrate the 
process of defining new words and adding them to the Forth 
vocabulary. The program takes the cube of a number; since 
there is no command to perform this calculation, we must 
define one: 

: CUBE ( THIS WORD IS BEING DEFINED ) 

DUP DUP ( COPY THE NUMBER TWICE ON STACK ) 

* * ( MULTIPLIES TOP TWO STACK VALUES 2X ) 



The colon in Forth tells the interpreter that a word is 
being defined. If we had not entered the colon, Forth would 
have responded 

CUBE ? 

indicating that it had not found this word in its 
dictionary. Since we did use the colon, however, Forth will 
treat everything up to the semicolon as the definition of 
this word. After encountering this character, Forth replies 



OK 
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The word CUBE is now part of our Forth dictionary and 
we can use it directly or within a program. It will remain 
so only as long as the computer is turned on, unless we save 
it onto a disk. 

The command OUP makes a copy of the value at the top of 
the stack and puts this copy back on the stack. Since we 
want not the square but the cube of the number, we must make 
two copies of the number. If the number 5 was at the top of 
the stack, the stack would now look like this: 

TOP 5 
5 
5 



BOTTOM 

Now we must multiply the numbers together. A total of 
two multiplications are necessary. Forth uses the usual "*" 
symbol for multiplication. After we have performed the 
multiplications, the cube will be at the top of the stack, 
and we can end our definition. Note that during a colon 
definition none of these operations are actually carried 
out. The colon places Forth in what is called the compile 
mode, where it searches for each word in the definition and 
makes note of that word's address within the dictionary, 
which it places in the definition for the new word. When we 
now use this new word, a colon run-time routine calls each 
of the words in turn, thereby executing the new command. 
Here are some examples of our new command (the "." tells 
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Forth to print the value at the top of the stack): 



You enter: 

5 CUBE . 
1 CUBE . 
-15 CUBE . 



Forth responds: 

1.25 OK 
1 OK 
-3375 OK 



As you can see, it is very easy to add new commands to 
Forth. You can make use of this feature to optimize the 
language to a specific application or set of applications. 

Now let's compare Forth and BASIC. The program we will 
use calculates the cubes of the integers from zero to ten. 
The Forth program will make use of our newly defined word 
CUBE. 



Forth 

: CUBENUMBERS 

10 ( FROM TO 10 * LIFO!! * ) 

DO ( START OF LOOP ) 

CR I . I CUBE . 

( PRINT NUMBER (I) AND CUBE ) 

LOOP ( END OF LOOP ) 



CUBENUMBERS 



1 1 

2 8 

3 27 
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BASIC 



4 64 

5 125 

6 216 

7 343 

8 512 

9 729 OK 



10 REM CALCULATE CUBES 

20 MIN=0 : MAX=9 

30 FOR I=MIN TO MAX : PRINT 1,1*1*1 

40 NEXT I 

50 END 



HUN 










1 


1 


2 


8 


3 


27 


4 


64 


5 


125 


6 


216 


7 


343 


8 


512 


9 


729 


READY. 



Both programs require approximately the same number of 
lines, but the Forth program requires far less storage space 
than does the BASIC program. Efficient use of memory is not. 



125 



Tricks & Tips 



everything, however. Let us compare the speeds of Forth and 
BASIC. We can do this with a simple loop: 



1. Forth 



BENCHMARK 
30000 
DO 

LOOP 



( FROM TO 30000 ) 

( START OF LOOP ) 

( EMPTY LOOP ) 

( END OF LOOP ) 

( END OF DEFINITION ) 



2. BASIC 



BENCHMARK OK 



10 REM BENCHMARK 
20 MIN=0 : MAX=30000 
30 FOR I=MIN TO MAX 
40 NEXT I 
50 END 

RUN 
READY. 



The results may be quite surprising: 



Language: 

BASIC 
Forth 



Time: 

about 40 seconds 
about 4 seconds 
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Remember, these test were performed the same computer, the 
Commodore 64. 

This advantage alone should prompt many people to give 
serious consideration to learning Forth. Programming in it 
is quite easy and the speed and memory savings are 
significant. 

Forth - The language for professional software developers 

It is interesting to note that more and more 
professional software developers are changing their minds 
about Forth because of the many advantages that we have 
already discussed. In addition, Forth offers a short 
development time because it is as structured language, is 
easy to use, and in spite of this still offers the 
flexibility and speed of machine language. There are already 
programs for the Commodore 64 which have been developed in 
Forth, such as the spreadsheet program Calc Result. 

Forth has one last advantage which is of special 
interest to software houses. It belongs to the small group 
of portable languages, which means that a program written in 
Forth on one computer can easily be made to run on a 
different computer. This reduces the time required to 
produce a given software packages for multiple computers, 
something which is very important to software companies. 

If you are interested in learning more about Forth, you 
can try our TINY FORTH package, available for the Commodore 
64 or VIC-20. 



127 



Tricks & Tips 



Chapter 6 : CP/M on the Coanodore 64 



6.1 Introduction to CP/M 

CP/M is one of the most widely-used microcomputer 
operating system. It has become the "standard" operating 
system, inasmuch as such a thing exists. CP/M has withstood 
the test of time, something which cannot be said of many 
other microcomputer operating systems. Most of the bugs have 
been worked out and the system is reasonably trustworthy. 

What can the Commodore 64 user gain from this operating 
system? He is used to BASIC 2.0 and the Commodore DOS, why 
another operating system? This question is not often found 
outside of Commodore users who have not seen much of the 
rest of the computer world. There one finds an undreamed-of 
quantity of software. Not that the 64 does not have a 
significant amount of software available for it, but it is 
nothing compared to the sheer volume available for CP/M. 

Not only can the user profit from the availability of 
CP/M software, but the programmer as well. He can write his 
software for a much larger body of users than ever before 
possible. Writing a program specifically for the Commodore 
64 limits the potential users to 64 owners, but many 
different computers can use CP/M, so writing a program to 
run under CP/M greatly increases the potential market for a 
program. Many programmers writing for an "exotic" operating 
system have heard "And when will the program be available on 
CP/M?" 
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At this point we must point out one major problem with 
every CP/M system: 

CP/M IS NOT THE SAME AS CP/M! 

Unfortunately, most computer manufacturers use their 
own modified version of CP/M. Despite the apparent 
compat ibilty , it is not possible to interchange programs or 
transfer data. The CP/M for the Commodore 64 also has its 
peculiarities. For example, the I/O byte of CP/M is not 
implemented, the 64 can display only 40 characters per line 
on the video display, and even the disk format is not 
compatible with other computers. We will return to these 
problems and how to solve them later. 

CP/M has certain standards, some of which we have already 
mentioned: 

1. The computer on which it runs must have at 
least 48K of RAM. 

2. CP/M occupies the free memory at address 
$0100. 

3. Most programs require a video display capable 
of displaying 24 (or 25) lines of 80 characters. 

4. Much CP/M software is available only on 8 inch 
disks. 

Let's take a brief look at these standards. First, the 
computer must have at least 48K of RAM. Virtually all 
currently produced computers can be expanded to 48K of HAM, 
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and the Commodore 64 already comes with more than this. The 
ability of the 64 to switch the ROMs out is also important 
for implementing CP/M and other programs which could not be 
used on computers without this capability. CP/M can be 
placed where it is supposed to go, at address $0100. 

The first problem with implementing CP/M on the 64 is 
the limited screen size. CP/M programs such as Wordstar, 
Datastar, and others require an 80 column display for proper 
operation. The Commodore 64 has only 40 characters, although 
there is a solution which we will say more about in section 
6.3. 

The last problem concerns the disk drive. We mentioned 
that much of the CP/M software is available on 8 inch disks. 
The 1541 disk drive uses 5 1/4 inch disks. More and more 
computer manufacturers are using the 5 1/4 inch disk drives 
and so more CP/M software is being made available for these 
formats. Unfortunately, none is yet available in the 1541 
format. 

What does CP/M consist of? 

CP/M is an operating system composed of several parts. More 
exactly, it consists of four major parts. 

1. BIOS (Basic Input/Output System): As the name 
implies, the BIOS is concerned with communicating 
with the outside world. It is used to send 
information to the printer, the terminal 
(screen), to the disk drive, and so on. The BIOS 
has a number of function calls which tell the 
operating system how this communication will take 
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place. A complete table of these functions is 
found at the end of this description. 

2. BDOS (Basic Disk Operating System): This part 
controls the disk drives — the management of the 
directory and the actual read and write commands. 
These procedures are also controlled by 
individual function calls. 

3. CCP (Console Command Processor): The operating 
system must be told what it is you want it to do. 
This is generally done via the Commodore 64 's 
keyboard. The CCP transmits your commands to the 
CP/M system. 

4. TPA (Transient Program Area): This is the free 
program area which is available to the user. This 
storage area is used when you write or use a 
program. 

This is the layout of the BIOS, BDOS, CCP, and TPA in 
memory: 



Name: 



FDOS (BIOS + BDOS) 



CCP 



TPA 



System parameters 



Address: 
$9C00 
$9400 
$0100 
$0000 
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Here is the table of FDOS functions: 
Number: Function: 



BIOS 



00 System reset 

01 Read ASCII character from terminal 

02 Send ASCII character to terminal 

03 Read ASCII character from paper tape 
reader 

04 Send ASCII character to paper tape punch 

05 Send ASCII character to printer 

06 Send/receive character to/from console 

07 Read status from device 

08 Send status to device 

09 Send character string buffer 

10 Read character string into buffer 

11 Read status of console 

BDOS 

12 Read CP/M version number 

13 Disk reset 

14 Select drive number 

15 Open file (OPEN) 

16 Close file (CLOSE) 

17 Search for first program in FCB 

18 Search for next program in FCB 

19 Erase program (DELETE) 

20 Read from sequential file 
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21 Write to sequential file 

22 Create file 

23 Change filename (RENAME) 

24 Input possible drives 

25 Read current drive number 

26 Set DMA address 

27 Read address 

28 Set write protect 

29 Read read/write pointer 

30 Set read/write pointer 

31 Read address of disk parameters 

32 Read/set user id 

33 Read from random file 

34 Write to random file 

35 Calculate program length 

36 Read address of record 

All of these functions are called in a specific 
pattern. In order to clarify this, we must learn a little 
bit about 8080 machine language. Because CP/M was developed 
on this processor and the Z-80 microprocessor which is found 
in the Commodore CP/M module also understands the 8080 
machine language, CP/M applications are written in it. If 
you are not familiar with this machine language, but you 
would like to delve deeper into CP/M, we strongly recommend 
that you get a CP/M handbook such as Rodney Zaks CP/M 
Handbook and a good book on Z-80 or 8080 machine language. 

What do these function calls look like? 

As an example, we will read the version number of the 
Commodore CP/M (2.2) with the following routine: 
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MVI 


C,12 


CALL 


0005 


CPI 


20H 



; FUNCTION 12 

;JUNP TO BDOS 

;$20 INDICATES CP/M. 2.0 



First the C register is loaded with the value 12, the 
function number for reading the CP/M version number. This C 
register is always loaded with the function number before 
the branch is made to address 0005. CP/M now knows that we 
want to find out the version number, and branches 
automatically to the point in the CP/M system where the 
version number will be read. BDOS then jumps back to our 
routine after placing the version number in the accumulator. 
If the value is $20 then we know that the version number is 
at least 2.0. This information is very important if we want 
to write a program which uses random file access because all 
CP/M versions before 2.0 can work only with sequential files 
(see chapter 8). If we want our program to run on a CP/M 
computer other than the Commodore 64, we can easily 
determine if it will run or not by reading the version 
number and checking to see that it is 2.0 or greater. 

The various registers play an important role in the 
CP/M function calls. The first to mention is the C register 
which contains the function number prior to the BDOS/BIOS 
call. After the execution of the appropriate routine, the 
other registers contain the desired information. Some 
functions do not return any information, rather they output 
information to some device, or inform the operating system 
itself of something. For these types of calls, the 
appropriate register or registers are loaded with the 
information, the C register is loaded with the function 
code, and then call is made. 
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Why function codes? 

As you know by know, it is an advantage of the CP/M 
operating system that a CP/M program can generally be run on 
any CP/M computer. Small changes to the BIOS/BDOS or CCP may 
be necessary to implement CP/M itself on different 
computers, however. In order to guarantee that a program 
will run without the programmer having to worry about the 
construction of a particular version of CP/M, the function 
calls to the BIOS/BDOS via address 0005 are used. This way a 
given part of the operating system can be changed without 
having to rewrite any programs. The same advantage is found 
in the kernal ROM of the Commodore 64, without the CP/M 
operating system. In the kernal is a list of subroutine 
entry points called a vector table which call the various 
input/output routines. If any of these routines are changed, 
it is still possible to use the old programs; they notice 
nothing of the altered operating system. 

The CCP commands 

The CCP serves as an interface between the user and the 
CP/M operating system. Programs can be executed from the CCP 
and it also supervises its own small set of commands: 

1. DIR (DIRectory): This command displays the 
contents of the disk. It offers the following 
options: 

- DIR displays the entire directory listing 
of the disk in the currently selected 
drive. 
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- DIH B: displays the entire directory 
listing of the diskette in drive B (1). "A" 
nay be used in place of B, causing the 
directory of the disk in drive A (0) to be 
displayed. 

- DIH <name.ext> only indicates whether or 
not the given file is on the diskette. The 
name may be up to eight characters long, 
must start with a letter, and may contain 
no special characters (punctuation) except 
the extension separator, the period, "ext" 
is a three-letter extension of the program 
name. It is normally used to indicate the 
type of program. For example, only programs 
which end in COM may be executed directly. 
TXT indicates that the file contains text, 
BAS indicates a BASIC program, and so on. 

- DIR <*.ext> displays all programs ending 
with ext. DIR *.C0M would display all 
programs ending with .CON, i.e. all 
directly-executable programs. 

See the CP/M manual for other options with 
the DIR command. 

Here is the format of the directory listing when 
using the DIR command on the Commodore 64: 



COM 
COM 
COM 
COM 



A>DIR 






A: MOVCPM 


COM : 


PIP 


A: SUBMIT 


COM ; 


: XSUB 


A: ED 


COM : 


ASM 


A: DDT 


COM : 


LOAD 
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A: 


STAT 


CON : 


: SYS6EN 


CON 


A: 


DUMP 


CON : 


: DUMP 


ASM 


A: 


COPY 


COP i 


: CONFIG 


COM 


A> 











2. ERA (ERAse): This command erases one program 
or several programs from the directory. Here too 
there are several options: 

-ERA <name.ext> 

-ERA <*.ext> 

3. REN (REName): With this command you can give 
an existing program or data file a new name. 
There is only one form of the command: 

- REN (new name) = <old name> 

4. TYPE: This command is used only for text 
files. It displays the contents of a file on the 
screen. It has the form: 

- TYPB <filename.ext> 

In most cases the extension will be TXT, PRN, or 
something similar. 
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5. SAVE: This command appears quite complicated 
at first. It is normally used to save a program 
modified with DDT, or for saving a modified CP/M 
version. The format is: 

- SAVE (number of pages > <name.ext> 

The number of pages is the number of 256-byte 
"pages" to be saved. The command 

SAVE 50 TBST.COM 

puts the contents of memory from address $0100 
(start of the TPA) to address $32FF under the 
name TEST.COM. The length is 50*256. 

6. USER: This command allows the directory to be 
divided up for different users. It is possible to 
protect certain areas of the directory from 
access by other users (on other computers). This 
command has no real value on the Commodore 64, 
however. The form is: 

- USER user number 

The user number is an integer from to 15. 
Entering the number places one in the directory 
of the corresponding user. The default number is 
zero. 



These are the commands which every computer using the 
CP/M operating system understands. Only the USER command is 
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new since version 2.0. All others belong to the standard 
CP/M command set. In the next pages we will present a short 
overview of the standard CP/M programs: PIP, ED, DDT, and 
STAT. They are supplied on every CP/M system diskette, but 
they are programs, not commands. They serve to expand the 
commands available on CP/M, but they must be first loaded in 
from disk. 
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6.2 The individual CP/M progress 



What would CP/M be without its framework of utility 
programs? Digital Research, the producer of CP/M, has made 
sure that the user can start programming immediately. (Note 
to Commodore 64 users: No version of BASIC comes with the 
Commodore CP/M although one may be added later). 

The following programs belong to the CP/M standard: 

- STAT.COM A program which obtains and displays the 

various system information such as the space 
left on the disk, device assignments, and so 
on. 

- ASM.COM This is an assembler provided for programming 

in 8080 assembly language. 

- L0AD.COM This programs makes ready-to-run programs out 

of assembled programs (programs with the 
extension .HEX). 

- DUMP.C0M With this program a program (.COM) can be 

displayed on the screen in readable 
hexadecimal format. 

- PIP.C0M PIP is a program to exchange data between 

different peripheral devices. 

- ED.COM The CP/M text editor. This program is useful 

for creating text, assembly language source 
programs and so on. 
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- SYSGEN.COM PIP can only copy files, so SYSGEN is needed 

to write the individual BIOS tracks on the 
disk and thereby generate a new BIOS (see 
section 6.3). 

- M0VCPM.COM This program fits the standard CP/M to your 

special type of computer (see section 6.3). 

- SUBMIT.COM It often happens that the same input must be 

entered repeatedly. The SUBMIT command allows 
you to create a file of this input which it 
will enter at the appropriate time (such as 
setting certain start-up parameters). 

- XSUB.COM This program also eases the work of entering 

repeatedly occurring commands. It is only 
combination with SUBMIT. It allows manual 
input, over the keyboard, during the 
operation of SUBMIT. 

At this point we cannot deal with all of these programs 
in detail. We shall limit our presentation to a brief 
introduction to three of the most commonly used programs. 
More information can be obtained from the CP/M manual. 



STAT 



STAT is one of the more important CP/M programs. It 
might also be called the STATUS program because one can 
obtain a great deal of information about the condition of 
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the entire system from it. STAT not only gives the remaining 
space on the diskette and the length of the files, but it 
can also alter the read/write pointer which indicates 
whether the disk can be written to and read from, or may 
only be read from. There is one limitation when using the 
Commodore 64 version of CP/M. The I/O byte is not 
implemented which means that the individual assignments 
cannot be changed. This should not be a problem in normal 
use, however. 

An example of the STAT program: 

A>STAT VAL: 

TEMP H/0 DISK: D:=R/0 

SET INDICATOR: D: FILENAME. TYP $R/0 *R/W $SYS $DIR 

DISK STATUS : DSK: D:DSK: 

USBR STATUS : USR: 

IOBYTE ASSIGN: 

CON: = TTY: CRT: BAT: UC1: 

RDR: = TTY: PTR: UR1: UR2: 

PUN: = TTY: PTP: UP1: UP2: 

LST: = TTY: CRT: LPT: UL1: 



Here we can find out which values and in what form we can 
(theoretically) change, but as already mentioned, the values 
under IOBYTE cannot be changed on the Commodore 64. 

If we want to place a write protect on a disk, for 
example, we enter STAT A:R/0. This write protect remains as 
long as the device is turned on. To find out the CP/M device 
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assignments, enter STAT A:DEV:. On the 64 the result will 
be: 

A>STAT DBV: 
CON: IS TTY: 
RDH: IS TTY: 
PUN: IS TTY: 
1ST: IS TTY: 

Changing any of these assignments will have no effect on the 
Commodore 64. 

The information about the disk characteristics is also 
very informative. Here we can learn the disk capacity, what 
the construction looks like, and much more. The appropriate 

command is 

A>STAT DSK: 

A: DRIVE CHARACTERISTICS 
1088: 128 BYTE RECORD CAPACITY 
136: KILOBYTE DRIVE CAPACITY 
64: 32 BYTE DIRECTORY BNTRIES 
64: CHECKED DIRECTORY ENTRIES 
128: RECORD/ EXTENT 
8: RECORD/ BLOCK 
34: SECTORS/ BLOCK 
2: RESERVED TRACKS 
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PIP 



PIP is a universal program for copying files. Not only 
can it copy between different disk drives, it can also send 
data intended for the screen to the printer. This has the 
advantage that the programs themselves do not have to be 
changed in order to have them print out results on the 
printer. In order to copy a entire diskette, the form PIP 
B:=A:*.* is used. This command copies all the files from 
drive A to drive B. To send data to the printer, we would 
use a command such as PIP LST: =DUMP. ASM. Now, provided that 
the printer is connected, the entire program DUMP. ASM will 
be printed. 



ED 



The text editor allows input of text or programs which 
will be later compiled or assembled, such as FORTRAN, COBOL, 
or assembly language programs. Working with ED requires some 
practice; it will appear somewhat complicated to Commodore 
users but it will not take long to become familiar with this 
simple editor. An example: 

A>ED TEST. TXT 

NEW FILE 

*I 

THIS IS THE FIRST TEXT LINE 

AND THIS IS THE SBCOND 

<CTRL>-Z press the CTRL and the Z key 

at the same time 
*E 

A> 
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These commands write the two lines of text shown beneath the 
"♦I" to a disk file called TEST. TXT. The "*" is the editor's 
command prompt. Entering the E command ends the editing 
session and saves the file to disk, returning you to CP/M 
and the A> prompt. This file can be listed by entering TYPE 
TEST. TXT. Other editing commands for changing and 
manipulating the file from within ED are also available; 
consult your CP/M manual for details. 
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6.3 Adapting standard CP/M software to the 64 



What must be taken into consideration when adapting 
CP/M software to the hardware of the Commodore 64? First you 
Bust remember that the screen is only 40 columns across. 
Because most CP/M software is written for an 80 column 
screen, you will need an 80 column card of some sort. In 
addition, a large, fast disk drive would be useful for 
working with CP/M. 

To adapt CP/M to a specific computer, the operating 
system has two programs at its disposal: MOVCPM and SYS6EN. 
MOVCPM sets up the operating system for a specific memory 
configuration. It is possible to make use of the maximum 
memory capacity this way. When starting up the CP/M system, 
the computer responds with the message 44K CP/M. It is 
possible, however, to use the entire memory for CP/M. We 
have mentioned before that RAM can occupy the entire address 
space of the Commodore 64. 

The CP/M system can be copied onto your own diskettes 
with SYSGBN, allowing you to create "boot" diskettes, disk 
which you can use to initialize or "boot-up" the CP/M 
system. 

The problem of transferring existing CP/M programs to 
the VIC-1541 disk format is one the greatest obstacles to 
using CP/M on the Commodore 64. In section 6.9 we will 
present a method for transferring standard Commodore files 
(DOS 2.6 files) to CP/M. This can be used, together with an 
HS-232 serial interface and a terminal program which allows 
files to be down-loaded to the 64, to down-load programs 
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froa another CP/M computer for which software is available 
in the appropriate format. The connection between the two 
Day be made directly using something called a null-modem 
cable or over the phone lines via modems. Once the program 
is saved as a DOS 2.6 file, it can be transferred to CP/M as 
described in section 6.9. 
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6.4 The memory management of the Z-80 processor 

The Z-80 processor on the CP/M card can address the 
entire 64K bytes of the Commodore 64. Since the Z-80 
requires address zero as the reset address (the address at 
which execution will start upon reset or power-up), and this 
address is assigned as the processor port of the 6510, the 
addressing of the memory through the Z-80 microprocessor is 
handled differently than the addressing through the 6510. 
The CP/M card contains the hardware to create an offset when 
addressing the memory through the Z-80. The offset is equal 
to $1000 or 4096. This results in the following situation: 
When the Z-80 wants address zero, the hardware manipulations 
of the address lines result in an address which is 
equivalent to address $1000 for the 6510. To calculate the 
corresponding Z-80 address from a 6510 address, simply 
subtract $1000. Alternatively, you can also add $F000 and 
ignore the overflow. Through this trick, an area of 4K bytes 
from address to $0FFF on the 6510 is placed at the end of 
the address range of the Z-80 ($F000-$FFFF) . This memory 
area contains the zero page, the stack, and the scratch pad 
memory of the 6510 as well as the video RAM. The other 2K 
from $800 to $FFF is used by the CP/M card to transmit data 
between the 6510 and the Z-80, as well as program storage 
for the 6510 input/output routines. The Z-80 delegates all 
of the input/output to the 6510 



Label 



6510 



Z80 



Description 



HSTBUF $0800 0F800H 
CMD $0900 0F900H 
DATA $0901 0F901H 



256-byte disk buffer 

command register for the 6510 

data register 
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SECTOR 


$0902 


0F902H 


TRACK 


$0903 


0F903H 


DISKNO 


$0904 


0F904H 


KEYCHAR 


$0905 


0F905H 


MODESW 


$0E00 


0CE00H 


IOTYPE 


$0CFF 


OFCFFH 



sector register 

track register 

register for drive number 

number of the pressed key 

switch for 6510/Z80 

I/O configuration 



6510 

$FFFF 



$0000 
$C000 



$1000 
$0000 



6510 

OPERATING 

SYSTEM 



48K 



44K 



CP/M 



6510 - Z80 



Z80 



0EFFFH 0FFFFH 



0C000H 
0B000H 



BIOS65 



0F900H 



0F800H 



0F400H 



00000H 



OFFFFH 0F000H 



DISK BUFFER 



VIDEO RAM 



6510 
WORK STORAGE 



6510 



$0FFF 



$0900 
$0800 

$0400 



$0000 
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6.5 Disk aanageaent under CP/M 



A diskette is divided into a number of concentric 
tracks which are further divided into sectors. These 
divisions are set up as follows on the 1541: 



Track 


Sectors 


1-17 


0-20 


18-24 


0-18 


25-30 


0-17 


31-35 


0-16 



A total of 683 sectors (blocks) are available. Track 18 is 
used to store the directory, so 664 blocks are available for 
file storage. 

Under CP/M, the first two tracks are reserved for the 
CP/M operating system itself; the other tracks are free for 
data and program storage. Because disk management under CP/M 
cannot make use of a variable number of sectors, only the 
sectors from to 16 are used. In effect you have 32 tracks 
each containing 17 sectors, for a total of 574 256-byte 
blocks or 143K bytes of storage. In addition, the CP/M 
directory requires some space (64 entries or 32 bytes each, 
2K bytes). This is stored in the CP/M BIOS (Basic 
Input/Output System) disk parameter block and can be adapted 
by the user to his disk capacity. Track 18 (which contains 
the Commodore directory) is not used by CP/M. 

Track 1, sector of the operating system disk contains 
the loader program "CPM." The "BIOS 65" is contained in 
track 1, sectors 1 through 5, which contains the I/O 
routines for the 6510 as well as the cold-start loaders for 
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CP/M. The program "CPM" loads these three sectors at 
addresses $0A00 to $0EFF. From there the block from $0E00 to 
$0BFF is transferred to address $1000 to $10FF. This is Z-80 
address zero, at which the cold-start loader will be 
transferred. Finally, the 6510 switches itself off while 
switching the Z-80 on. The Z-80 begins executing the program 
at address zero, which loads the CP/M operating system from 
disk. The CCP and the BDOS (Command Control Processor and 
Basic Disk Operating System) occupy 22 sectors on tracks one 
and two, from track 1 sector 6 to track 2 sector 10. These 
sectors are also loaded in on a warm start with control-C; a 
star appears on the screen for each sector loaded in. The 
BIOS, which is loaded in only on a cold start, occupies five 
sectors from track 2 sector 11 to sector 16. The directory 
occupies sectors through 7 on track three. 

With the CP/M utility program COPY, only the necessary 
sectors are copied, depending on the option selected. For 
example, selecting "system tracks only" copies only sectors 
1 and 2 as well as 18 and track 3 for the CP/M directory. 

If you want to connect a different disk drive, using 
the IEEE bus for example, you must know the track and sector 
layout of the drive. No adaptation is necessary for the 4040 
drive because it is completely compatible with the 1541. To 
make use of the greater storage capacity of the 8050 or 8250 
dual drives, it is necessary to make some changes to the 
"disk parameter block" of the BIOS. There are the values for 
the sectors per track (23 for the 8050) and the disk 
capacity. In addition, the tracks 38 and 39 must be set 
aside instead of track 18 because the directory is stored 
there on the 8050. These changes must also be made in the 
COPY program. 
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6.6 The interaction between the 6510 and the Z-80 



When you work with CP/M on the Commodore 64, the two 

microprocessors share the work. While the Z-80 serves the 

actual CP/M, the 6510 is brought into play to handle the 

input/output operations since the Commodore 64 already has 

these routines in its kernal ROM. The Z-80 delegates the 
following tasks to the 6510: 

Command number Operation 

read a sector from the disk 

1 write a sector to the disk 

2 read the keyboard 

3 display a character on the screen 

4 get the printer status 

5 output a character to the printer 

6 format the diskette 

7-9 reserved for future expansion, such as 

serial I/O 

The two processors cannot operate simultaneously. The 
address $DE00 of the 6510 (0CE00H on the Z-80) is used to 
switch between the two. When the Z-80 wants the 6510 to 
execute an I/O function, it sends the 6510 the number of the 
desired code from the above table and switches itself off 
while switching the 6510 on. It does this by writing a "1" 
to address 0CE00H. The 6510 fetches the command code, 
executes the appropriate command, and switches over to the 
Z-80 by writing a "0" to address $DE00. The Z-80 can then 
continue with its program at the point where it had passed 
control to the 6510. Because of certain hardware 
requirements, the first command executed after switching 
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from the 6610 to the Z-80 must be a NOP (No operation). 

Six memory locations at address $900 (0F900H for the Z- 
80) are used to transmit parameters. 



6510 


Z-80 


$0900 


0F900H 


$0901 


0F901H 


$0902 


0F902H 


$0903 


0F903H 


$0904 


0F904H 


$0905 


0F905H 



Parameter 

command number 

data for input or output 

sector number 

track number 

disk number 

key number 



The memory from $800 to $8FF (0F800H to 0F8FFH) is used 
as a buffer to hold a sector to be written to the disk or 
one which has just been read from the diskette. Reading and 
writing disk sectors is performed with the direct access 
Block-Read and Block-Write commands. 

The keyboard polling yields only the number of the 
depressed key. The assignment of an ASCII value to a key 
happens in the BIOS using a 256-byte table at address $D00 
(0FD00H). A table at address $C00 (0FC00H) contains the 
addresses of the character strings assigned to the functions 
keys. The definitions themselves start at address $C10 
(0FC10H) and may consist of up to 16 characters each. These 
assignments may be changed with the program CONFIG. 
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6.7 Implementing your own Input/Output routines in BIOS 



The CP/M BIOS contains two routines called PUNCH and 
READER, which are not used in the Commodore 64 version of 
CP/M. The READER routine currently returns a control-Z, the 
marker for the end of the file. We can use it and the PUNCH 
vector for our own purposes. The PUNCH routine could be used 
to drive a printer with a Centronics-type parallel 
interface, for instance, as described in section 7.1. The 
driver routine can be formulated in 6510 code, and we can 
use the command codes 7 and 8 which branch to locations $E00 
and $F00, respectively, to call our drivers. The call would 
look something like this: 

PUNCH: ; output character to PUN: Centronics printer 
MOV A,C {character in accumulator 
; into transfer register 
; code for our routine 

;call 6510 routine 



Our 6510 driver must be located at address $E00; we 
have 256 bytes available to us. Since the routine need only 
handle outputting the data to the port and the handshaking, 
this will be plenty of room. 

The READER routine can be implemented similarly. 



STA 


DATA 


MVI 


A, 7 


STA 


CMD 


CALL 


106510 


RET 
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READER: ; get character from RDR: 



MVI 


A, 8 


STA 


CMD 


CALL 


106510 


LDA 


DATA 


AM 


7FH 


RET 





; code for our routine 

;call 6510 routine 
;get character 
; erase parity bit 



The command code 8 expects the input routine to be at 
address $F00; here too we have 256 bytes available to us. 
You can define your favorite input device as RDR: , such as 
the cassette recorder, another disk drive, or an interface 
to transfer data from other computers. The READER routine 
expects text data in standard ASCII format. The end-of-file 
is indicated by a control-Z, as usual. 
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6.8 Transferring CP/M programs and data to and froi 
Commodore BASIC 



When one works with CP/M on the Commodore 64, one 
normally does not have the ability to later use programs or 
data in the normal BASIC mode of the 64. These files are 
only accessible in the CP/M mode. It is possible to transfer 
files, however, with a small change to the BIOS. 

In CP/M you can send data to the printer. This is done 
in BI0S65 with the appropriate OPEN and PRINT* commands. At 
this point we can go in and simply change the device number 
on the OPEN command. If we set the number to one, all the 
data intended for the printer will be sent to the cassette 
recorder instead. We must enter one as the secondary address 
a well, so that the tape file will be opened for writing. We 
can make this change using the CP/M program DDT. Enter the 
following commands to make the changes (your input is 
underlined) : 



DDT 

-SFAC7 
FAC7 07 01 
FAC8 20 i 
-SFADD 
FADD 00 01 
FADE A9 i 
-SFAB6 
FAE6 04 01 
FAE7 20 i 
-~C 
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Now when you output something with ~P or PIP LST:=, it 
will not be sent to the printer but to the cassette drive. 
The first time, the message "press record & play on tape" 
will appear and the screen will go dark. Once the data has 
been sent, press control C and then press STOP and RESTORE 
together during the warm start. The computer will respond 
with "ready." in the Commodore mode. Now you must close the 
tape file with CLOSE 4, and after you have the turned the 
computer off and back on again, you can read the tape file 
in: 

100 OPEN 1 
110 GBT#1, A$ 

200 IF ST<>64 THEN 110 
210 CLOSE 1 

This program gets the data character by character; you can 
then save it to a disk file or do whatever you like with it. 
If you want to transfer data from CP/M often, you can 
use the editor (ED) and the assembler (ASM) to create a 
small program which makes the changes for you so that you do 
not have to use DDT. First create the following program 
using ED: 

ORG 100H 
MVI A.l 
STA 0FAC7H 
STA 0FADFH 
STA 0FAE6H 
JMP 
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and assemble it 

ASM TAPB.AAX 
Then make a .CON file out of it 

LOAD TAPE 

Now you can make the changes by simply typing the program 
name TAPE from CP/M. 

It is also possible to transfer data the other way, 
from the Commodore BASIC mode to CP/M. To transfer a file, 
is must be saved as a program file with load address $1100. 
This is equivalent to the Z-80 address 100H, the start of 
the Transient Program Area (TPA). The following program will 
save a file as a program with a load address of $1100: 

100 INPUT "NAME OF THE FILE " ; N$ 

110 OPEN 2,8,2, N$ 

120 OPEN 1,8,1, N$+".CPM": REM OPBN PROGRAM FILE 

130 PRINTtl, CHR$(0)CHR$(17); : REM START ADDRESS $1100 

140 6ET#2, A$: IF ST=64 THEN CLOSE 1: CLOSE 2: END 

ISO PRINTtl, A$;: GOTO 140 

Before we can load the program, we must know its length. We 
can find this by loading the directory. 

25 "NAME.CPM" PRG 



Remember the number 25. Now we load the program file. 
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LOAD "NAME. CPM" ,8,1 

Insert the CP/M diskette and enter CP/M as usual. When CP/M 
is loaded, we can save the file under CP/N. 

SAVE 25 NAME. TXT 

Here the number 25 gives the number of 256-byte blocks to be 
saved, but is identical to the number of blocks given in the 
Commodore directory. There may be a problems with 
upper/lower case reversal when transferring text files. If 
this is the case, the conversion to standard ASCII can be 
made to A$ in line 140. 
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Chapter 7: Interface and expansion options 



7.1 The USBR port: An interface for a Centronics printer 

The Commodore 64 has an interface which is not normally 
used by the operating systen, and which is available for 
your own devices. This interface consists of an 8-bit port 
and two handshake lines. The 8-bit port can be used for 
input as well as output; each bit may be switched 
independently. 

This interface is ideally suited for implementing a 
printer interface. Here in short is the procedure: 

The 8 bits of a byte are sent in parallel over eight 
data lines. To insure that no data are lost during the 
transmission, two so-called "handshake lines" are used. 
Before the computer sends a data byte to the printer, it 
checks the BUSY line to see if the printer is ready to 
receive the data. If the BUSY line is high, the printer is 
not ready and the computer must wait; When the printer is 
ready, the computer sends the data over the port and signals 
the printer by means of the STROBE line that it is sending 
the data. The printer accepts the data and sets the BUSY 
line high until it is ready to receive another character. 
Now the next byte can be transmitted, and so on. This 
process ensures that the printer actually receives each byte 
sent by the computer. 

In order to be able to use the PRINT* command to send 
data to the printer, the software in the operating system 
must be modified. There is also one additional problem: 

Most of the printers with a Centronics-type interface 
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use the standard ASCII character set, which is different 
from the Commodore 64 "s character set. He must convert the 
codes used by the computer to the equivalent codes used by 
the printer. In addition, it is also necessary to be able to 
send data to the printer exactly as the computer sends it. 
This is required when doing things like graphics on the 
printer. 

To solve this problem, we have written the driver 
program to accept two options. If no secondary address is 
given along with the OPEN command, the data will be 
converted from the Commodore codes to the appropriate ASCII 
codes. If a secondary address of one is given, the data will 
be sent to the printer without alteration. The device 
address 2 was chosen. This address is normally used for the 
RS232 interface, but since this interface cannot be used in 
conjunction with our interface (it also uses the USER port), 
this presents no problems. 

To send a program listing over this interface, you 
would enter the following commands: 

OPEN 1,2 : CMD 1 : LIST 

After the cursor reappears, enter 

PRINT#1 : CLOSE 1 

to return the CMD mode to normal and close the channel. If 
you want to transmit graphics data or printer commands, the 
following would be used: 
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OPEN 1,2,1 
PRINT* 1, ... 
CLOSE 1 

For the hardware portion of the interface, all that is 
needed is a cable with a USER port socket on one end and a 
Centronics socket on the other. The pin layout of the cable 
is given at the end of the assembly listing. When connecting 
the printer, attach the cable between the printer and 
coaputer, turn the computer on, and then turn the printer 
on. Load the machine language program and initialize it with 
SYS 12*4096. 



000 1 cooo 








NTERFACE DRIVER FOR 


CBM 64 






0002 COOO 








ECTED TO USER PORT 








0003 COOO 








0004 COOO 








F THE I/O VECTORS 








0005 COOO 








0006 COOO 


OPENV 


EQU 


*31A 


0007 COOO 


CLOSEV 


EQU 


*31C 


0008 COOO 


CHKINV 


EQU 


$3 IE 


0009 COOO 


CHKOTV 


EQU 


*320 


0010 COOO 


BSOUTV 


EQU 


*326 


0011 COOO 


XRE6 


EQU 


*97 


REGISTER 








0012 COOO 








0013 COOO 








IONS 








0014 COOO 








0015 COOO 


PORTA 


EQU 


*DDOO 


0016 COOO 


PORTS 


EQU 


*DD01 


0017 COOO 


DDRA 


EQU 


*DD02 


ON 








0018 COOO 


DDRB 


EQU 


*DD03 


0019 COOO 


ICR 


EQU 


*DDOD 


NTROL REGISTER 








0020 COOO 


LF 


EQU 


*B8 


0021 COOO 


SA 


EQU 


*B9 


0022 COOO 


FA 


EQU 


*BA 


0023 COOO 


NMBFLS 


EQU 


*9B 


0024 COOO 


LFTAB 


EQU 


*259 


0025 COOO 


FATAB 


EQU 


$263 


0026 COOO 


SATAB 


EQU 


*26D 



5 CENTRONICS I 

SPRINTER CONN 

S 

5DEFINITI0N 



; STORAGE FOR 

SPORT DEFINIT 

5CIA2 PORT 
SDATA DIRECT I 

S INTERRUPT CO 
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0027 


cooo 








SRCHFL EQU 


*F30F 


0028 


cooo 












0029 


cooo 












ON 














0030 


cooo 












003 1 


cooo 








ORG 


*C000 


0032 


cooo 


A9 


58 




LDA 


4K0PEN 


0033 


C002 


AO 


CO 




LDY 


#>OPEN 


0034 


C004 


8D 


1A 


03 


STA 


OPENV 


0035 


C007 


8C 


IB 


03 


STY 


OPENV+1 


0036 


COOA 


A9 


SB 




LDA 


#< CLOSE 


0037 


cooc 


AO 


CO 




LDY 


#>CLOSE 


0038 


C00E 


8D 


1C 


03 


STA 


CLOSEV 


0039 


C011 


SC 


ID 


03 


STY 


CLOSEV+1 


0040 


CO 14 


A9 


A3 




LDA 


#<CHKIN 


004 1 


CO 16 


AO 


CO 




LDY 


#>CHKIN 


0042 


CO 18 


8D 


IE 


03 


STA 


CHKINV 


0043 


CO IB 


8C 


IF 


03 


STY 


CHKINV+1 


0044 


CO 1 E 


A9 


BA 




LDA 


#<CHKOUT 


0045 


C020 


AO 


CO 




LDY 


#>CHKOUT 


0046 


C022 


8D 


20 


03 


STA 


CHKOTV 


0047 


C025 


8C 


21 


03 


STY 


CHKOTV+1 


0048 


C028 


A9 


Dl 




LDA 


#<BSOUT 


0049 


C02A 


AO 


CO 




LDY 


#>BSOUT 


0050 


C02C 


8D 


26 


03 


STA 


BSOUTV 


0051 


C02F 


8C 


27 


03 


STY 


BSOUTV+1 


0052 


C032 


A9 


FF 




LDA 


#*FF 


0053 


C034 


8D 


03 


DD 


STA 


DDRB 


TPUT 














0054 


C037 


AD 


02 


DD 


LDA 


DDRA 


0055 


C03A 


09 


04 




ORA 


#*04 


0056 

T 

0057 


C03C 


8D 


02 


DD 


STA 


DDRA 


C03F 


60 






RTS 




0058 


C040 












0059 


C040 












HANDSHAKE 












0060 

B 
0061 


C040 












C040 












0062 


C040 












AG TO ICR 












0063 


C040 












0064 


C040 


8D 


01 


DD 


OUTPUT STA 


PORTB 


0065 


C043 


A9 


10 




LDA 


#*10 


AB' BIT 












0066 


C045 


2C 


OD 


DD 


TSTBSY BIT 


ICR 


0067 


C048 


FO 


FB 




BEQ 


TSTBSY 


0068 


C04A 


AD 


00 


DD 


LDA 


PORTA 


0069 


C04D 


29 


FB 




AND 


#*FB 


0070 


C04F 


8D 


00 


DD 


STA 


PORTA 


0071 


C052 


09 


04 




ORA 


#*04 


0072 


C054 


8D 


00 


DD 


STA 


PORTA 
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sport b as ou 

5pa2 as outpu 

5 output with 
;data to port 
5 strobe on pa 
5 busy over fl 



5 OUTPUT DATA 
;MASK FOR J FL 



5 ERASE STROBE 
; SET STROBE 
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0073 C057 60 

0074 C05S 

0075 C05B A6 B8 
NUMBER 

0076 C05A F0 05 

0077 C05C 20 OF F3 
ILE NUMBER 

0078 C05F DO 03 

0079 C061 4C FE F6 
RROR' 

0080 C064 A6 98 
EN FILES 

0081 C066 EO OA 

0082 C068 90 03 

0083 C06A 4C FB F6 
LES ERROR' 

0084 C06D E6 98 

0085 C06F A5 B8 

0086 C071 9D 59 02 

0087 C074 A5 B9 

0088 C076 09 60 
00B9 C078 9D 6D 02 

0090 C07B A5 BA 

0091 C07D 9D 63 02 

0092 C080 C9 02 

0093 C082 DO 02 

0094 C084 IB 

0095 C085 60 

0096 C086 C9 00 

0097 C088 4C 77 F3 

0098 C08B 

0099 C08B 20 14 F3 
OBICAL FILE NUMBER 

0100 C08E FO 02 

0101 C090 IB 

0102 C091 60 

0103 C092 20 IF F3 
AMETERS 

0104 C095 8A 

0105 C096 48 

0106 C097 A5 BA 

0107 C099 C9 02 

0108 C09B FO 03 

0109 C09D 4C 9D F2 
NUE 

0110 COAO 4C Fl F2 
IN TABLE 

0111 C0A3 

0112 C0A3 20 OF F3 
ILE NUMBER 

0113 C0A6 FO 03 

0114 COAS 4C 01 F7 
EN ERROR' 

0115 COAB 20 IF F3 
AMETERS 



RTS 

OPEN LDX LF 

BEQ OPNERR 
JSR SRCHFL 

BNE LB1 
OPNERR JMP *F6FE 

LB1 LDX NMBFLS 



LB2 



CPX 


#10 


BCC 


LB2 


JMP 


*F6FB 


INC 


NMBFLS 


LDA 


LF 


STA 


LFTAB,X 


LDA 


SA 


ORA 


#*60 


STA 


SATAB.X 


LDA 


FA 


STA 


FATAB, X 


CMP 


#2 


BNE 


LB3 


CLC 




RTS 




CMP 


#0 


JMP 


*F377 



LB3 



CLOSE JSR *F314 

BEQ LB4 
CLC 
RTS 
LB4 JSR *F31F 

TXA 
PHA 

LDA FA 
CMP #2 
BEQ LBS 
JMP *F29D 

LBS JMP *F2F1 



CHKIN JSR SRCHFL 

BEQ LB6 
JMP *F701 



5 LOGICAL FILE 

; SEARCH FOR F 

;'FILE OPEN E 
5 NUMBER OF OP 

;'T00 MANY FI 



;done 



; SEARCH FOR L 



jiDONE 

5 SET FILE PAR 



LB6 



JSR *F31F 
164 - 



5 NORMAL CONTI 
5 ERASE ENTRY 

5 

5 SEARCH FOR F 

5 'FILE NOT OP 
; SET FILE PAR 
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0116 


COAE 


A5 


BA 






LDA 


FA 






0117 


COBO 


C9 


02 






CMP 


#2 




0118 


C0B2 


DO 


03 






BNE 


LB7 




1 1 9 


C0B4 


4C 


OA 


F7 




a mp 


*F70A 




ILE ERROR 
















0120 


C0B7 


4C 


19 


F2 


LB7 


J MP 


$F219 




0121 


COBA 


20 


OF 


F3 


CHKOUT 


JSR 


SRCHFL 




ILE NUMBER 














0122 


COBD 


FO 


03 






BEQ 


LBS 




0123 


COBF 


4C 


01 


F7 




J MP 


*F701 




EN ERROR' 
















0124 


C0C2 


20 


IF 


F3 


LBS 


JSR 


$F31F 




AMETERS 
















0125 


C0C5 


A5 


BA 






LDA 


FA 




0126 


C0C7 


C9 


02 






CMP 


#2 




0127 


C0C9 


DO 


03 






BNE 


LB9 




0128 


COCB 


4C 


75 


F2 




J MP 


$F275 




1 29 


COCE 


4C 


5B 


F2 


LB9 


J MP 


*F25B 




0130 


COD 1 
















0131 


C0D1 


48 






BSOUT 


PHA 






0132 

E 
0133 


C0D2 


A5 


9A 






LDA 


$9A 




C0D4 


C9 


02 






CMP 


#2 




0134 


C0D6 


FO 


03 






BEQ 


LB 10 




0135 


CODS 


4C 


CD 


Fl 




J MP 


*F1CD 




NUE 


















0136 


CODE 


A5 


B9 




LB 10 


LDA 


SA 




DRESS 
















0137 


CODD 


29 


OF 






AND 


#$0F 




1 38 


CODF 


DO 


OA 






BNE 


OUT 




ZERO 
















0139 


C0E1 


86 


97 






STX 


XREB 




0140 


C0E3 


68 








PLA 






0141 


C0E4 


AA 








TAX 






0142 


C0E5 


BD 


F3 


CO 




LDA 


TABLE, X 




M TABLE 
















0143 


C0E8 


A6 


97 






LDX 


XREG 




0144 


COEA 


24 








BYT 


$24 




0145 


COEB 


68 






OUT 


PLA 






0146 


COEC 


48 








PHA 






0147 


COED 


20 


40 


CO 




JSR 


OUTPUT 




CTER 


















0148 


COFO 


68 








PLA 






0149 


COF 1 


18 








CLC 






0150 


C0F2 


60 








RTS 






0151 


C0F3 


00 


01 


02 


TABLE 


BYT 


$00, $01, 


*02 


0152 


C0F6 


03 


04 


05 




BYT 


$03 


$04, 


$05 


0153 


C0F9 


06 


07 


08 




BYT 


*06 


.$07, 


$08 


0154 


COFC 


09 


OA 


OB 




BYT 


$09 


, $0A, 


$0B 


0155 


COFF 


OC 


OD 


OE 




BYT 


*0C 


, $0D, 


*0E 


0156 


CI 02 


OF 


10 


11 




BYT 


$0F 


$10, 


$11 


0157 


CI 05 


12 


13 


14 




BYT 


*12 


.$13, 


$14 


0158 


CI 08 


15 


16 


17 




BYT 


$15 


*16, 


$17 


0159 


CI OB 


18 


19 


1A 




BYT 


$18 


, *19 


$1A 



5 'NOT INPUT F 

5 SEARCH FOR F 

5 'FILE NOT OP 
;SET FILE PAR 



5 OUTPUT DEVIC 

5 NORMAL CONTI 
", SECONDARY AD 

5 NOT EQUAL TO 
5 SET CODE FRO 

; OUTPUT CHARA 
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0160 C10E IB 1C ID BYT $1B,$1C,$1D 

0161 Clll IE IF 20 BYT $1E,$1F,$20 

0162 CI 14 21 22 23 BYT $21, $22, $23 

0163 CI 17 24 25 26 BYT $24, $25, $26 

0164 C11A 27 28 29 BYT $27, $28, $29 

0165 CUD 2A 2B 2C BYT $2A,$2B,$2C 

0166 C120 2D 2E 2F BYT $2D,$2E,$2F 

0167 C123 30 31 32 BYT $30, $31, $32 

0168 C126 33 34 35 BYT $33, $34, $35 

0169 C129 36 37 38 BYT $36, $37, $38 

0170 C12C 39 3A 3B BYT $39,$3A,$3B 

0171 C12F 3C 3D 3E BYT $3C,$3D,$3E 

0172 C132 3F 40 61 BYT $3F,$40,$6i 

0173 CI 35 62 63 64 BYT $62, $63, $64 

0174 C138 65 66 67 BYT $65, $66, $67 

0175 C13B 68 69 6A BYT $68,$69,$6A 

0176 C13E 6B 6C 6D BYT $6B,$6C,$6D 

0177 C141 6E 6F 70 BYT $6E,$6f],*70 

0178 C144 71 72 73 BYT $71, $72, $73 

0179 CI 47 74 75 76 BYT $74, $75, $76 

0180 C14A 77 78 79 BYT $77, $78, $79 

0181 C14D 7A 7B 7C BYT $7A,$7B,$7C 

,*5F 

*62 
$65 
$68 
$6B 
$6E 
$71 
$74 
$77 
$7A 
$7D 
$80 
$83 
$86 
$89 
$8C 
$8F 
$92 
$95 
$98 
$9B 
$9E 
$A1 
$A4 
$A7 
$AA 
$AD 
$B0 
$B3 
$B6 
$B9 
$BC 
$BF 



0182 C150 7D 7E 5F BYT $7D,$7E 

0183 C153 60 61 62 BYT $60, $61 

0184 C156 63 64 65 BYT $63, $64 

0185 C159 66 67 68 BYT $66^, $67 

0186 CISC 69 6A 6B BYT $69,$6A 

0187 C15F 6C 6D 6E BYT $6C,$6D 

0188 C162 6F 70 71 BYT $6F,$70 

0189 C165 72 73 74 BYT $72, $73 

0190 C168 75 76 77 BYT $75, $76 

0191 C16B 78 79 7A BYT $78, $79 

0192 C16E 7B 7C 7D BYT $7B,$7C 

0193 C171 7E 7F 80 BYT $7E,$7F 

0194 C174 81 82 83 BYT $81, $82 

0195 C177 B4 85 86 BYT $84, $85 

0196 C17A 87 88 89 BYT $87, $88 

0197 C17D 8A 8B 8C BYT $8A,$8B 

0198 CI 80 8D 8E 8F BYT $8D,$8E 

0199 C183 90 91 92 BYT $90, $91 

0200 C186 93 94 95 BYT $93, $94 

0201 C189 96 97 98 BYT $96, $97 

0202 CISC 99 9A 9B BYT $99,$9A 

0203 C18F 9C 9D 9E BYT $9C,$9D 

0204 C192 9F AO Al BYT $9F^,$A0 

0205 C195 A2 A3 A4 BYT $A2,$A3 

0206 CI 98 A5 A6 A7 BYT $A5,$A6 

0207 C19B A8 A9 AA BYT $AB,$A9 

0208 C19E AB AC AD BYT $AB,$AC 

0209 C1A1 AE AF BO BYT $AE,$AF 

0210 C1A4 Bl B2 B3 BYT $B1,$B2 

0211 C1A7 B4 B5 B6 BYT $B4,$B5 

0212 C1AA B7 B8 B9 BYT $B7,$B8 

0213 C1AD BA BB BC BYT $BA,$BB 

0214 C1B0 BD BE BF BYT $BD,$BE 
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0215 


C1B3 


CO 


41 42 




BYT *C0,*41,*42 








0216 


C1B6 


43 


44 45 




BYT *43,*44,*45 








0217 


C1B9 


46 


47 48 




BYT *46,*47,*48 








0218 


C1BC 


49 


4A 4B 




BYT *49,*4A,*4B 








0219 


C1BF 


4C 


4D 4E 




BYT *4C,*4D,*4E 








0220 


C1C2 


4F 


50 51 




BYT *4F,*50,*51 








0221 


C1C5 


52 


53 54 




BYT *52,*53,*54 








0222 


C1C8 


55 


56 57 




BYT *55,*56,*57 








0223 


C1CB 


58 


59 5A 




BYT *58,*59,*5A 








0224 


C1CE 


5B 


5C 5D 




BYT *5B,*5C,*5D 








0225 


C1D1 


DE 


DF EO 




BYT *DE,*DF,*EO 








0226 


C1D4 


El 


E2 E3 




BYT *E1,*E2,*E3 








0227 


C1D7 


E4 


E5 E6 




BYT *E4,*E5,*E6 








0228 


C1DA 


E7 


E8 E9 




BYT *E7,*E8,*E9 








0229 


C1DD 


EA 


EB EC 




BYT *EA,*EB,*EC 








0230 


C1E0 


ED 


EE EF 




BYT *ED,*EE,*EF 








0231 


C1E3 


FO 


Fl F2 




BYT *F0,*F1,*F2 








0232 


C1E6 


F3 


F4 F5 




BYT *F3,*F4,*F5 








0233 


C1E9 


F6 


F7 F8 




BYT *F6,*F7,*F8 








0234 


C1EC 


F9 


FA FB 




BYT *F9,*FA,$FB 








0235 


C1EF 


FC 


FD FE 




BYT *FC,*FD,*FE 








0236 


C1F2 


FF 






BYT *FF 








100 


FOR I 


= 49152 TO 


49650 








110 


READ 


x : 


POKE I,X 


: s 


=S+X '. NEXT 








120 


DATA 


169 


88, 160, 


192, 


141, 26, 3,140, 27, 


3, 


169, 


139 


130 


DATA 


160 


192, 141, 


28, 


3, 140, 29, 3, 169, 


163, 


160, 


192 


140 


DATA 


141 


30, 3, 


140, 


31, 3,169,186,160, 


192, 


141, 


32 


150 


DATA 


~ 


140, 33, 


3, 


169,209, 160, 192, 141, 


38, 


3, 


140 


160 


DATA 


39 


3,169, 


255 


141, 3,221,173, 2, 


221, 


9, 


4 


170 


DATA 


141 


, 2,221, 


96^ 


141, 1,221,169, 16, 


44, 


13, 


221 


180 


DATA 


240 


251, 173, 


o, 


221, 41,251,141, 0, 


991 


9, 


4 


190 


DATA 


141 


■ 0,221, 


96, 


166,184,240, 5, 32, 


15, 


243, 


208 


200 


DATA 


3 


76,254, 


246, 


166,152,224, 10,144, 


3, 


76, 


251 


210 


DATA 


246 


,230, 152, 


165, 


184,157, 89, 2,165, 


185, 


9, 


96 


220 


DATA 


157 


,109, 2, 


165, 


186,157, 99, 2,201, 


2, 


208, 


2 


230 


DATA 


24 


, 96,201, 


o, 


76,119,243, 32, 20, 


243, 


240, 


2 


240 


DATA 


24 


, 96, 32, 


31, 


243,138, 72,165,186, 


201, 


2, 


240 


250 


DATA 


3 


, 76,157, 


242, 


76,241,242, 32, 15, 


243, 


240, 


3 


260 


DATA 


76 


, 1,247, 


32, 


31,243,165, 186,201, 


2, 


208, 


3 


270 


DATA 


76 


, 10,247, 


76, 


25,242, 32, 15,243, 


240, 


3, 


76 


280 


DATA 


1 


,247, 32, 


31, 


243,165,186,201, 2, 


208, 


fl 


76 


290 


DATA 


117 


,242, 76, 


91, 


242, 72,165,154,201, 


■^5 


240, 


s> 


300 


DATA 


76 


,205,241, 


165, 


185, 41, 15,208, 10, 


134, 


151, 


104 


310 


DATA 


170 


, 189,243, 


192, 


166,151, 36,104, 72, 


32 


64, 


192 


320 


DATA 


104 


, 24, 96, 


0, 


1, 2, 3, 4, 5, 


*! 


7, 


8 


330 


DATA 


9 


, 10, 11, 


12, 


13, 14, 15, 16, 17, 


18, 


19, 


20 


340 


DATA 


21 


, 22, 23, 


24, 


25, 26, 27, 28, 29, 


30, 


31, 


32 


350 


DATA 




, 34, 35, 


36, 


37, 38, 39, 40, 41, 


42, 


43, 


44 


360 


DATA 


45 


, 46, 47, 


48, 


49, 50, 51, 52, 53, 


54, 


55, 


56 


370 


DATA 


57 


, 58, 59, 


60, 


61, 62, 63, 64, 97, 


98, 


99, 


100 


380 


DATA 


101 


, 102, 103, 


104, 


105, 106, 107, 108, 109, 


110, 


111, 


112 


390 


DATA 


113 


, 114, 115, 


116, 


117, 118,119,120,121, 


1 T? 


123, 


124 


400 


DATA 


125 


,126, 95, 


96, 


97, 98, 99,100,101, 


102, 


103, 


104 


410 


DATA 


105 


, 106, 107, 


108, 


109, 110,111,112, 113, 


114, 


115, 


116 


420 


DATA 


117 


, 118, 119, 


120, 


121, 122, 123, 124, 125, 
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430 DATA 129,130,131,132,133,134,135,136,137,138,139,140 
440 DATA 141,142,143,144,145,146,147,148,149,150,151,152 
450 DATA 153,154,155,156,157,158,159,160,161,162,163,164 
460 DATA 165,166,167,168,169,170,171,172,173,174,175,176 
470 DATA 177,178,179,180,181,182,183,184,185,186,187,188 
480 DATA 189,190,191,192, 65, 66, 67, 68, 69, 70, 71, 72 
490 DATA 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84 
500 DATA 85, 86, 87, 88, 89, 90, 91, 92, 93,222,223,224 
51 O DATA 225,226,227,228,229,230,231,232,233,234,235,236 
520 DATA 237,238,239,240,241,242,243,244,245,246,247,248 
530 DATA 249,250,251,252,253,254,255 

540 IF S <> 58534 THEN PRINT "ERROR IN DATA!!" : END 
550 PRINT "OK" 



The cable connecting the printer to the User port has the 
following pin layout: 



USER PORT 




- 


CENTRONICS 


A 




GND 


16 


B 


FLAG-BUSY 


11 


C 




DO 


2 


D 




Dl 


3 


E 




D2 


4 


F 




D3 


5 


H 




D4 


6 


J 




D5 


7 


K 




D6 


8 


L 




D7 


9 


M 


PA2 


-STHOBB 


1 
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7.2 Transferring data between computers using the USER port 



Imagine the following: You own, in addition to your 
Commodore 64, a CBM 8032. Wouldn't it be nice to.be able to 
directly transfer data from the 8032 to your 64 where you 
can work with it in color? Or maybe you like to be able to 
send information from the 64 to the 8032, where you can see 
it in 80 columns. You could do this with a cassette, 
assuming you have one, but this is a tedious and bothersome 
process. 

We have chosen this example to illustrate the use of 
the Commodore 64's USER port, and we have written a small 
program which allows the 64 to both send and receive data. 
In our case, the device to which we will be sending data (or 
from which we will be receiving it) is a CBM 8032. It is 
also possible to use the same procedure for communicating 
with other computers which have an interface similar to the 
user port. 

The programs (one for the Commodore 64 and one for the 
CBM 8032) which will be given shortly naturally require the 
appropriate connection between the two computers. The pin 
assignments and necessary connections can be found following 
the listing. First, however, we will present. a detailed 
account of the variables and memory locations used in each 
of the programs as well as a step-by-step description of the 
programs themselves. 
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The variables (both programs): 

X ASCII value of a sent or received byte 
TI operating system clock; counts in 1/60 second steps 
0$ composite string of data received or to be sent 



Memory locations used on the CBM 8032: 



59457 
59459 



59468 



59469 



Data register of the user port 

User port data direction register. As you may already 
know, the user port may be configured as either input 
or output. For this reason, we must specify the data 
direction of each bit. 

Bit 5 of this address controls the CB2 line of the 
user port. When sending, this line will indicate the 
validity of the data. When receiving, this lines 
serves as the acknowledgement signal, indicating that 
the data was received. These signals are required to 
ensure that no data are lost. 

Bit 1 gives the condition of the CA1 line of the user 
port. When sending data, this bit will be monitored 
for the acknowledgement signal of the receiving 
device, while when receiving, it is monitored as the 
data ready or valid signal. 



Memory locations used on the Commodore 64: 

56576 Bit 2 controls the PA2 line of the user port. This 
line is used in the same manner as the CB2 line on 
the CBM 8032 (see description of location 59468). 

56577 User port data register. 
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56579 User port data direction register. 

56589 Bit 4 reflects the condition of the FLAG line on the 
user port. Its use is the same as the CA1 line on the 
8032 (see description of location 59469). 



Program operation: 

1000-1080 Send routine 

1000 The data direction register is set to output. 

1010 The length of the send loop is determined by the 

number of bytes to be sent. 
1020 The individual bytes in U$, indexed by I, are 

written to the data register. 

1030 The appropriate signal line is set to zero to 

indicate that the data on the data lines is valid. 

1040 This loop waits until the receiver acknowledges 

reception of the data byte. 

1050-1060 The data valid signal is set back to 1 and the 

next byte is sent. 
1070-1080 The user port is returned to normal and the send 

routine ends. 
2000-2090 Receive routine 

2000 The first data byte is awaited. 
2020-2030 The clock is set to zero and the next statements 
wait until either a data byte is received or two 
seconds have elapsed. If the latter is the case, 
it can be assumed that the data transmission is 
done. The time limit in line 2020 can be changed 
as desired. The 120 refers to 120 l/60ths of a 
second, a total of two seconds. To allow for a 
three second pause, the appropriate value would be 
180. 
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2040-2050 The computer waits for the data valid signal. If 
it is received, the byte in X is added to D$. 

2060-2080 As acknowledgement that the data byte was 
received, the corresponding line is set to zero 
and the loop returns to wait for the next 
character. 

These programs consist only of two subroutines, one for 
sending data and one for receiving it. They should be 
inserted into your own programs. When you want to send 
characters, place them in D$ and GOSUB 1000. To receive 
data, call line 2000 (GOSUB 2000) and upon return, D$ will 
contain the characters received. 

The first listing is for the CBM 8032 and the second is 
for the Commodore 64. They are identical in structure, 
although the addresses of the user ports are different in 
each case. The only other difference occurs in line 2010. In 
consideration for the different way in which the C64 kernal 
operates, a jump must be inserted. 
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8032 version 

995 rem subroutines for transferring data over the user 

port 

996 rem CBM 8032 for the 6522 at address 59456 

997 rem 

999 rem send a string 

1000 poke 59459,255 : rem set data direction to output 
1005 poke 59468, peek(59468) or 224 : rem cb2 high 
1010 for i=l to len(d$) : rem send loop for d$ 

1020 x=asc(mid$(d$, i, 1)) : poke 59457, x : rem output data 

1030 poke 59468, peek(59468) and 223 : rem cb2 low 

1040 wait 59469,2 : rem wait until data received 

1050 poke 59468, peek(59468) or 224 : rem cb2 high 

1060 next 

1070 poke 59457,0 : poke 59459,0 : rem reset port 

1080 return 

1996 rem 

1997 rem receive data into d$ 

1998 rem 

1999 rem 

2000 wait 59469,2 : rem wait for start of data transmission 
2010 d$="" : rem initialize d$ 

2020 ti$="000000" 

2030 if ti>120 then 2090 

2040 if (peek(59469) and 2)=0 then 2030 : rem wait for 

data byte 
2050 x=peek(59457) : d$=d$+chr$(x) 
2060 poke 59468, peek(59468) and 223 : rem cb2 low 
2070 poke 59468, peek(59468) or 224 : 

rem cb2 high = receive confirmation 
2080 goto 2020 
2090 return 
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Commodore 64 version 



995 rem subroutines for transferring data over the user 

port 

996 rem CBM 64 version for 6526 at address 56576 

998 rem 

999 rem send a string 

1000 poke 56579,255 : rem set data direction to output 
1010 for i=l to len(d$) : rem send loop for d$ 

1020 x=asc(mid$(d$, i,l)) : poke 56577.x : rem output data 

1030 poke 56576,147 : rem pa2 low 

1040 wait 56589,16 : rem wait until data received 

1050 poke 56576,151: rem pa2 high 

1060 next 

1070 poke 56577,0 : poke 56579,0 : rem reset port 

1080 return 

1996 rem 

1997 rem receive into d$ 

1998 rem 

1999 rem 

2000 wait 56589,16 : rem wait for start of transmission 
2010 d$ = "" : goto 2050 : rem initialize d$ 

2020 ti$="000000" 

2030 if ti>120 then 2090 

2040 if (peek(56589) and 16)=0 then 2030 : rem wait for 

data byte 
2050 x=peek(56577) : d*=d$+chr$(x) 
2060 poke 56576,147 : rem pa2 low 

2070 poke 56576,151 : rem pa2 high = receive confirmation 
2080 goto 2020 
2090 return 
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A short example will clarify the use of these routines: 

Assuming that you have loaded the appropriate routines 
into both computers, add the following line to the sender 
routine: 

10 D$="test" : GOSUB 1000 : END 

and the following to the receiver 

10 GOSUB 2000 : PRINT D$ : END 

Start both programs and watch what happens (assuming both 
computers are connected properly) . 



The diagram below shows the construction of the 
connecting cable. We recommend a 10-wire shielded cable. The 
shield is connected to the GND pin on both sides. It is best 
to limit the length of the cable to no more than 15 feet. If 
a longer cable is required, line drivers may have to be used 
to insure that no data is lost during transmission. Noise 
created by electric motors (washing machine, vacuum cleaner) 
or other large electrical devices can scramble the data 
being transmitted. You should have no problems at all if the 
length is kept under 10 feet. Ten feet should also be 
considered an absolute maximum when using an unshielded 
cable. 
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7.3 The CP/M cartridge on the expansion port: A case study 

In this section, we describe how a clever piece of 
hardware can make optimal use of the expansion slot on the 
Commodore 64. For a better understanding of the material 
that we present, a knowledge of the material in the 
corresponding chapter of our book The Anatomy of the 
Commodore 64 is an advantage. 



First of all, what it is the CP/M cartridge? 

The CP/M cartridge is a module developed by Commodore 
which contains a Z-80 microprocessor and the necessary logic 
to communicate with the C64. The module makes it possible to 
use the popular CP/M operating system on the 64 and so gain 
access to the wide range of software available for CP/M. 

The topic we wish to examine more closely is the 
technique of using two processors in the same computer. At 
the end of this section you will find a block diagram of the 
CP/M cartridge. Not all of the connections are shown in 
order to keep the diagram as simple as possible. The 
following discussion centers around this diagram and 
presents the function groups together with their 
designations. We have tried to make this discussion simple 
enough so that you need not be a hardware expert in order to 
understand it. 

First, we present a description of the expansion port 
lines which play a role in this context: 

CDO-7 System bus data lines. 

These can be controlled by the 6510 within the 64 
only as long as DMA=1 and BA=1. 
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We should make note of this condition, since it is 

necessary for further progress. 
CAO-15 System bus address lines. 

The above conditions apply to these lines as well. 
1/01 This line is low whenever any activities take place 

in the address range $DE00-$DEFF (56832-57087). 
RES When this line is low (usually only when the computer 

is first turned on), all connected hardware devices 

are reset. 
DMA This line is an input. Setting it to zero halts the 

6510, leaving the system bus free for external 

control. 
BA The 64's video controller uses this line to signal 

that it is accessing the memory (BA=0). During this 

time, the system bus may not be used by the 6510 or 

any other device. 
S02 This is the system clock which coordinates all of the 

operations within the 64. In order to execute all 

activities in synchronization with the 64, the Z-80 

in the CP/M module is also controlled by this clock. 

We begin our description of the additional processes 
with the reset state, the condition of the device after 
being turned on. First we need an explanation of a line on 
the Z-80, BUSREQ. This signal has the same operation as the 
ABC (activated by DMA=0) on the 6510. If BUSHEO=0, the Z-80 
ceases all activities and leaves its system bus free. 

When the device is turned on, the RES line is set low 
for a short time, resetting the Z-80 and the FF flip-flop 
(Q=0, -Q=l). This has the effect of setting the output of 
the AND gate to zero, independent of BA. This in turn 
inhibits the Al, A2, and D buffers, preventing the Z-80 
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system bus from being externally controlled. BUSREQ is also 
held low, effectively inhibiting the Z-80 processor. 

You can see now that the operation of the module 
depends on the condition of the flip-flop FF in combination 
with the signal BA (combined through the AND gate &). Only 
when FF is set (Q=l, -0=0) and BA=1 does BUSREQ=1, allowing 
the Z-80 to operate. You can use your 64 as usual, provided 
you do not execute a certain command, namely POKE 56832,1. 

As you can gather from the block diagram and the 
description of expansion port, this poke activates the line 
1/01. Poking the value 1 sets our flip-flop FF and allows 
the Z-80 to run free, since BA=1 most of the time. At the 
same time, the 6510 is switched off and the computer will 
probably crash because there is no program in memory which 
will make any sense to the Z-80. 

At this point we come to our next theme: Where must a 
program be so that the Z-80 can execute it? To find this 
out, we must dig a bit deeper. In contrast to the 6510, the 
Z-80 begins execution at location after reset (BES-0). 
Here we have a conflict since the 6510 has its 1/0 port at 
location and the following locations are the zero page, a 
section of memory absolutely required by the processor 
because the important system parameters are stored there. A 
Z-80 program simply cannot be stored at this point. On the 
other hand, we cannot change where the Z-80 will begin its 
execution. 

The CP/M module solves this dilemma quite elegantly. If 
you take a look at the block diagram, you will find a 
function block which we have labeled ADD. This function 
block contains a four-bit full adder. The adder accepts two 
4-bit words as input, adds them, and places the sum at its 
outputs. In our case, the adder is connected to the four 
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highest-order bits of the address. One input is connected to 
the address lines of the Z-80 and the other is permanently 
set at 0001. The result is that the top four address bits 
are incremented by one. This has the net effect of 
increasing the total address by $1000 (4096) because the 
most significant digit of a two-byte address counts in 4K 
increments. 

To return to our example, when the Z-80 outputs address 
zero in order to fetch the first command, it actually 
accesses address $1000 (4096). There, a program intended for 
the Z-80 can be placed without disturbing the operating 
system of the 6510. Using this scheme, a Z-80 address of 
$F000 (61440) corresponds to an effective address of 0, 
since the carry produced by the addition is ignored. 

This procedure is essentially the same as the real 
operation of the module: After turning the computer on, a 
small start program is loaded into memory (at $1000 of 
course) and after setting the flip-flop FF, the Z-80 takes 
over and executes the program which loads the CP/M operating 
system. You should use this procedure when you want to 
execute Z-80 programs of your own. Simply place the program 
you have written at location $1000 (4096) and switch the 
cartridge on as described. 

Since such a program is not an end in itself, but will 
have some output, whether to the screen or on the printer, a 
good knowledge of the Commodore 64* s hardware is 
indispensable so that you can execute the appropriate 
functions from the Z-80 program. Remember that all addresses 
referenced from the module are offset by 4096. To send data 
to the user port, for example, you should use the address 
$CD01 (52481) in your Z-80 program because the user port is 
located at address $DD01 (56577) in the 6510 mode. 
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How does one return from the Z-80 mode? If the BASIC 
interpreter is loaded, you can reset FF by entering POKE 
52736,0. This has the additional effect of setting BUSREQ to 
0, halting the Z-80 while setting DMA to 1, whereupon the 
6510 resumes execution at the point at which it left off. 

The address must actually be 4096 less than the 6510 
address since this value will be added back in by ADD. It is 
not recommended to proceed in this manner, however, since 
the 6510 will not find a program which it can run upon 
return since the memory contains programs intended for the 
Z-80, and the computer will crash. 

BA is only a help signal which controls the traffic on 
the bus. It has a profound effect on the CP/M module, 
however, since the Z-80 halts execution whenever BA=0 or the 
output of FF is zero. If we take a closer look at the origin 
of BA, we will discover why this is so. 
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BA is a signal created by the video controller in the 
Commodore 64. Because the video controller must access the 
video RAM cyclically for refreshing the screen, the system 
bus must not be used by any other device. Normally this does 
not require halting the usual bus traffic; the video 
controller makes use of the "holes" in the microprocessor 
access cycles during which the processor is not using the 
system bus. There are exceptions, however, such as when the 
sprites are being displayed. Here these holes will not 
suffice since the memory must be accessed several times in 
succession. The video controller signals this condition by 
setting BA to zero and all other devices (including the Z-80 
and the 6510) must give up the bus. 



We have purposely kept the block diagram on the next 
page simple although the circuitry in the area of data 
buffer D is more complex than that shown. It is sufficient 
however to explain to explain the interaction between the Z- 
80 and the 6510. 
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7.4 Synthesizer in stereo 

If you use the synthesizer in your Commodore 64 often, 
you have probably wished for something better than the tinny 
sound of your TV speaker. With the help of a stereo receiver 
or amplifier we can produce considerably better sound. 
Because the stereo has two channels at its disposal, we must 
consider how to divide the single-channel output of the 
synthesizer between them. Unfortunately, the individual 
voices of the device do not have separate outputs, or we 
could make the division easily. 

We have made certain allowances, however, and have 
divided the tone signal into two frequency ranges. The 
division occurs at 300 Hz. This splits the range of the 
synthesizer nearly in the middle as far as the ear is 
concerned, with three octaves below (down to 36 Hz) and four 
octaves above (up to 4800 Hz) 300 Hz. 

This is accomplished with two double-T filters with an 
attenuation of 6dB/octave and a cut-off frequency of 300 Hz 
(low pass) and 3 kHz (high pass). You can change the cut-off 
frequencies as desired by using different capacitors, but 
you should leave the values of the resistors as they are 
since they were calculated to match the impedance of the 
connected device. 

Given the cut-off frequency, the required value of the 
capacitor can be found with the formula C=1/(3300*F) . If you 
have some capacitors already and want to know what cut-off 
frequency they would give, use the formula F=1/(3300*C) . The 
values that we have chosen are optimized for this project 
based on numerous measurements and listening tests. 

If an attenuation of 3dB/octave is good enough for you, 
the components R2, C2, C4, and R6 can be eliminated. This 
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will result in a greater acoustical overlap between the two 
speakers. As you see, the filter circuit is extremely 
simple. It can be constructed on a piece of perfboard. 

We now want to present a program which will produce a 
"sweep" using the triangle wave. This will allow you to 
clearly hear how the tone moves from one speaker to the 
other. He have chosen the triangle wave because it is 
relatively free of overtones and will allow the effect to 
noticed better. With more complex sounds, rich in overtones, 
such as the sawtooth, the overtones will appear on one 
channel while the fundamental wave will be heard on the 
other, provided that the fundamental does not exceed 300 Hz. 
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10 Vl=54272 

20 V2=54279 

30 V3=54286 

60 RS=54295 

70 PL=54296 

80 POKE Vl+4,0 : POKE V2+4.0 : POKE V3+4.0 

100 A=9 : D=9 : S=9 : H=9 : H=30 

110 POKE HS.O : POKE PL, 15 

120 POKE V3+5,16*A+D : POKE V3+6,16*S+R 

130 POKE V3+4.17 

140 FOR 1=0 to H : POKE V3+1,PEEK(54300) : NEXT I 

150 POKE V3+4.16 

160 FOR 1=0 to R*4 : POKE V3+1,PEEK(54300) : NEXT I 



Here is the schematic diagram for the filter. The stereo 
side is intended to be connected to the phono input. 
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Chapter 8 : Data Management 



8.1 Introduction 

The effective and efficient management and processing 
of data is one of the most basic themes in computing. All 
programs do it to some degree, but programs designed 
specifically for storage and retrieval of large quantities 
of various data are among the most complex in programming. 
It is the same in BASIC, FORTRAN, Pascal or other 
languages — data management, and everything else that has to 
do with data, is a very important problem. One would 
therefore expect that computer manuals or programming books 
would provide detailed information about this topic. 
Unfortunately, these books discuss data management only very 
briefly, it at all. 

In this chapter we want to give you some insight into 
data management on the Commodore 64. We will not merely 
present dry theory, but we will also present examples which 
will hopefully allow you to understand your Commodore 64 
better and to use it more effectively. First, however, we 
must begin by clarifying a few fundamentals of data 
management. 



FILE 



The whole world talks about data processing and files — 
but what actually are files? The easiest way to clarify this 
term is to replace it with another, one which everyone is 
familiar with: CARD CATALOG. As you know, a card catalog, 
such as those found in libraries, consists of a number of 
filing cards. On these cards is information concerning a 
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particular item or person. The cards must be organized 
according to a specific pattern. The most common method of 
organization is alphabetic sorting. Another possibility is 
sorting by the item number or some other datum. All of the 
cards together make up a card catalog. A file uses the same 
principle. A file consists of a number of data records which 
contain the individual pieces of information — just like a 
filing card. 

The great advantage of a data file over a card file is 
the amazing flexibility of the data file. The time savings 
when searching and sorting are most important, but the space 
savings also plays a large role today. Microcomputers can 
now be equipped with millions of characters of data storage. 
Can you imagine how many filing cards would be required to 
store so much information? 

DATA RECORD 

As we mentioned before, a data record can be compared 
to a filing card in a card catalog. Within this data record 
are all the data that would be on the filing card, divided 
into one or more FIELDS. 

FIELD 

Here too we can use the example of the card catalog. If 
you can picture a data record as a filing card, then the 
fields are the individual lines of information on the card. 
The association between the three concepts can be thought of 
approximately as: 

FILE -> DATA RECORD -> FIELD 



187 - 



Tricks & Tips 



When one wants certain information about a thing or a 
person, such as the name, the appropriate file must first be 
accessed, then the data record from this file, and finally 
the appropriate field from the data record. This can be 
represented graphically as follows: 



FILE: 



ADDRESSFILE 



FIELD 
LAST 



FIELD 
FIRST 



FIELD 

STREET 



FIELD 
CITY 



FIELD 
ZIP CODE 



Rec: 1 Jones Tom 
Rec: 2 Smith John 
Rec: 3 Green Joe 



123 Main St. Anytown, AZ SS55S 
456 Park PI. Nowhere, CA 86521 
789 Kings Ct. CBM City, TX 68513 



In this example one can clearly see the differences and 
relationships between file, data record, and field. These 
terms should be well understood before one begins writing 
data management programs. We will now move on to various 
access and storage methods, but the basis for this 
presentation will be the material we have discussed so far. 
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8.2 Cassette - Diskette 

After this somewhat lengthy introduction we want to 
actually write data management programs. We should first 
examine the devices which are at our disposal for storage on 
the Commodore 64: the datasette and disk drive. 

How are these two devices and their media different? 
How can they be used? In order to clarify these questions we 
will first make an excursion into the beginnings of data 
processing. 

Not so many years ago, terms such as "floppy" or 
"magnetic platter" were unheard. But even then one could not 
do without some sort of storage medium, a device that could 
save and recall data. Punch cards were developed for this 
purpose. With these one had a simple and cost-effective 
means of saving and retrieving data. A serious disadvantage 
of the devices required for working with the punch cards, 
the card puncher and reader, soon became apparent. Both were 
purely mechanical devices and far too slow. Faster and more 
reliable storage devices have always been in demand, so 
something better had to be developed. The result was the 
magnetic tape, which we can compare to the present cassette, 
since the principle is much the same as that used by the 
much larger reel-to-reel tape drives used on mainframe 
computers. 

The principle of the cassette as storage medium is 
really quite simple. The Commodore 64 has a specific device 
assignment for the cassette, device number 1. The command 
for writing is also 1. To open a file on the cassette 
recorder, the following command might be used: 



OPEN 1, 1, 1, "CBM 64 FILE" 
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The first "1" is the file number for the Commodore 64. If 
you want to open several files on the 64, you must choose 
different file numbers for the printer, cassette, and disk 
drive. The file number must be an integer from 1 to 255. 
When the record and play buttons on the cassette recorder 
are pressed, the Commodore 64 will write a special leader on 
the tape. This leader contains only the file name for a data 
file but can also include the start address if a program is 
being saved. This so-called program or file header is saved 
twice, after which the tape is stopped. At this point, data 
(or the program) can be saved. 

The following sequence offers an additional possibility 
for saving a file: 

OPEN 1, 1, 2, "CBM 64 FILB" 

When you use this command, the computer will write one 
additional piece of information to the tape after the file. 
This information, called the EOT (End Of Tape), when 
encountered in a subsequent read, tells the computer that 
the tape ends at that point. 

Once saved, data will be read in again at some time. 
The corresponding command is: 

OPEN 1, 1, 0, "CBM 64 FILE" 

The Commodore 64 will search for a particular file until it 
finds it or until it encounters an EOT marker. 

IMPORTANT: When writing, the 64 does NOT search for a 
file with the given name. It writes without regard for any 
existing data at the exact point on the tape that it finds 
itself. For this reason, it is best to store only one file 
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per cassette in order to prevent unintentional destruction 
of other data or programs. 



After a while, magnetic tapes no longer sufficed (we 
will discuss the reasons why later), so the storage 
techniques were refined. Magnetic platters were used. Here 
too the Commodore 64 has a similar method of storage 
available. Here one can connect one or more devices called 
disk drives. The corresponding medium, the diskette, can be 
compared to a phonograph record. On both media there are 
various "tracks," although all of the material on the 
diskette is magnetic and therefore the tracks are invisible. 
This allows the "record" to not only be read from but also 
written to. The syntax of the command for writing or reading 
a file using the disk looks like this: 

OPEN 2, 8, 2, "0:CBM 64 FILE.S.W" 



OPEN 2, 8, 2, "0:CBM 64 FILE.S.R" 

The first "2" is again the internal file number, "8" is the 
usual device number for a disk drive (but it can also be 9- 
12), and the second "2" is the channel number. The most 
interesting part, however, is the name. Here we find first 
the number of the disk drive (0 or 1), then the filename, 
then an "S" for "sequential file" (more about this later), 
and finally either a "W" for write or an "R" for read. 
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The most important differences between disk and 
cassette storage consist of 

-Cost 
Based on the initial purchase price, the cassette 
recorder is by far the cheaper storage medium, even 
though the price of the disk drive has come down 
dramatically and one can purchase a VIC-1541 for under 
$250 Another cost factor is the price of the actual 
storage media. For example, in order to store the 
170,000 characters which will fit onto a single disk 
in the Commodore VIC-1541, one would need four C-60 
cassettes. Here the cassette recorder offers no price 
advantage. 

-Access time 
Here the advantages of the disk are shown most 
clearly. For instance, reading a 10K program from a 
cassette requires 200 seconds, but only 20 for the 
VIC-1541 disk drive. To read a file consisting of 50 
addresses, each 100 characters long, requires 180 
seconds with a cassette recorder, while the disk drive 
requires only 18 seconds. 

-Access methods and ease of programming and operation 
While the cassette recorder allows only programs and 
sequential data files to be stored, the disk offers 
many more possibilities through its ability to make 
use of relative files (random access) and direct 
access. In addition, the disk is much easier to use. 
One need only give the disk drive the name of program 
to be saved, and the drive will find free space on the 
disk and save the program there. 
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It should now be clear that the cassette recorder is a 
low-cost device for the beginner or light user. Anyone who 
wants to use his computer for commercial purposes will 
require a disk drive. 

Next, we will take a look at the under-lying technical 
principles of data storage on the cassette and then turn to 
the individual access methods and file forms. 
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The datasette, or HOW DO THE BITS GET ON THE TAPE? 

Now that we have clarified the principles behind files 
(and you have hopefully understood them) , we want to explain 
how the information is actually placed on the tape. The 
discussion will become a bit technical, but you may find the 
information useful nonetheless. 

The method Commodore uses for representing the 
information (bits) on the cassette tape is called PPM or 
Pulse Position Modulation. This means that the Commodore 64, 
just like its other Commodore brothers, writes the digital 
signals directly, and not in the form of tone frequencies, 
to the tape. These digital signals are transmitted in three 
different lengths: short (S), long (L), and medium (M) . From 
these three lengths, three different combinations are 
formed, which have the following meanings: 

LLMM = BYTE ; this combination precedes every byte 
MMSS = 1 
SSMM = 

The letter "A" would be represented on the tape in the 
following form: 

LLMM MMSS SSMM SSMM SSMM SSMM SSMM MMSS SSMM MMSS 

BYTE 100000101 

B1T# 01234567 parity ODD 

The format of the whole program or file on the tape looks 
like this: 

Programs Data files 
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Program header 

Start & end addresses, name 

Program header (again) 

Program (a block) 

Program (again) 

End block 



File header 

Name 

File header (again) 

Data block 

Data block (again) 

End block 



The header is constructed as follows: 



Programs 



Data files 



Start address (xxxx) 

End address (xxxx) 

Program name (16 characters) 

Padding chars, (for prg. name) 



Start address (0000) 
End address (0000) 
Filename (16 chars.) 
Padding chars, (for 
filename) 



A block consists of: (programs and data files) 

approximately 2 seconds of leader 

9-byte count down ($89 $88 $87 $86 $85 $84 $83 $82 $81) 
for first block 

($09 $08 $07 $06 $05 $04 $03 $02 $01) 
for repetition 



data 



checksum (EXOR checksum for all data) 



end marker (LLSS SSSS SSSS SSSS SSSS) 
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approximately 0.16 seconds of trailer 



As we mentioned before, the method of representation is 
the same for all of the Commodore computers. The problem 
with exchanging data between the Commodore 64 and VIC-20 
lies only in the different clock frequencies used. The 
system clock of the VIC-20 runs faster than that of the CBM, 
while the system clock of the CBM runs faster than that of 
the Commodore 64. In practice, this means that VIC-20 and 
Commodore 64 programs can be run on the larger CBM's, but 
that a VIC-20 program cannot be directly loaded into a 
Commodore 64, and vice versa. If you want to exchange 
cassettes between these two computers, you must make a 
detour through a CBM. The procedure would be something like 
this: 

You have a cassette which contains one or more VIC-20 
programs or files which you want to transfer to your 
Commodore 64. In order to do so, you first take a ordinary 
datasette and connect it to a CBM or PET computer and load 
the first program (or file) as usual. Then take a new 
cassette and exchange it for the VIC-20 cassette in the 
recorder. Now save you program (or file) onto the tape with 
the usual commands. If you have more than one program or 
file, repeat this procedure until you are done. 

After all of the programs have been transferred, or 
perhaps it would be better to say converted, you have a 
cassette which can be used on both the VIC-20 and the 
Commodore 64. Under certain circumstances you may have to 
make some changes to the program, such as adapting it to the 
64's 40x25 screen size, changing some. POKE'S, etc. 
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8.3 The principle behind data management: Sequential files 

We have occupied ourselves in detail with the "history" 
of storage media. Now we shall turn our attention to the two 
most recent storage media, the tape and disk drives. In this 
section, we will concentrate on the sequential method of 
data access. 

Sequential means "one after the other." This is exactly 
the way we find individual data records in the file. It can 
be compared with the selection of a piece of music with the 
aid of a cassette recorder. You fast-forward or rewind the 
tape to the specific place at which the piece is recorded 
and then press the play button. When working with sequential 
files, either on tape or disk, there is one additional 
limitation. It is like having a tape recorder with a fast- 
forward and a rewind-to-start-of-tape button. If we want to 
hear the piece of music again, or make another pass through 
our data, we must go back to the beginning of the tape and 
fast-forward to the desired spot again. 

It works much the same way with data storage on the 
tape. When you save some data, you must make note of the 
counter position so that you can find the same spot on the 
tape later when you wish to read the data back in. You can 
use the fast-forward and rewind buttons to aid in finding 
the data. In spite of this, it is somewhat problematical to 
search through a file for a specific data record. If you 
have a file full of addresses, and you search for the name 
SMITH, it may happen that there is more than one SMITH in 
the file. Often, you cannot always make note of the counter 
position (in addition, we want to do without such manual 
work, otherwise we might just as well use filing cards). We 
must find some other way. We rewind the tape to the 
beginning, open the file for reading and then go through 
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record by record until we have read the correct SMITH. 
Naturally, this has certain time expenses: with 2000 records 
in a file one can have a nice cup of coffee or walk the dog 
while the file is being processed. But one can still use the 
cassette recorder for working with small amounts of data, 
especially since it is very cost-effective for such 
applications. 

Those who own cassettes but who would like to process 
their data quickly and efficiently should make use of the 
following procedure: Form all of your files such that they 
will fit into the free memory of the Commodore 64. Before 
you change, erase, insert, or simply display any of the data 
in the file, load the whole thing into memory from the 
cassette. Now the data accesses are not dependent on the 
speed of the cassette, rather, you can make use of the 
processing speed of your computer. When you are done working 
with the file, save the entire file back to tape. This 
simple and effective procedure can also be used for larger 
files. For example, you can divide an extensive address file 
into groups of names, one tape for those whose last names 
start with A-C, another for D-F, and so on, so that the 
parts each fit into the 64 's memory. With some skill and 
organization a tape recorder can be used to manage a large 
amount of data. 

When the process of data storage is presented 
figuratively, one can easily see why only sequential files 
are possible on the cassette recorder. All data are saved 
one after the other and read back into the computer in the 
same way. 

Sequential files are also available as a method of data 
storage on the disk drive. Sequential files can be found 
quickly and directly without searching since the drive 
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maintains a directory of the disk's contents and where the 
files can be found. This allows you to escape the tedious 
searching necessary with the cassette recorder. 

How do we handle a sequential file on the Commodore 64? 
First we must open the file. We need the file number, device 
number, channel number, and filename. Once we have opened a 
file, we can read or write in the file with one command, but 
never both at once. 

Without doing something additional we cannot write to a 
file which already exists. If, for example, you open the 
file "CBM 64 FILE" with the command 

OPEN 2, 8, 2, "0:CBM 64 FILE.S.W" 

and a file with the same name already exists on the 
diskette, you will receive the error message FILE EXISTS. 
The command must therefore be modified by placing an at-sign 
("6") in front of the drive number. The command is then 
worded 

OPEN 2, 8, 2, "60:CBM 64 FILE.S.W" 

and will cause any existing file with the same name to be 
overwritten. 

This is important because even with a disk, no data can 
be changed in an existing sequential data file. To change 
any data, the file must be read into memory in its entirety, 
and after making the changes it must be rewritten to the 
diskette. Those who wish to use sequential files with the 
disk instead of the direct access files available should use 
the procedure described for use with the cassette recorder. 
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Sequential files on the disk drive offer a 
substantially higher rate of access and data transfer speed 
as well as automated operation. The disk offers yet another 
advantage, namely the ability to APPEND to a sequential 
file. This ability to append is very useful because it means 
that you do not have to read all of the data into the 
Commodore 64 and then write it back again in order to simply 
add new data to an existing file. A simple change of the 
OPEN command allows you to append data to the end of a 
sequential file. The OPEN command looks like this: 

OPEN 2, 8, 2, "0:CBM 64 FILE, S, A" 

Now all data written to the file will be added to the end. 

This append option is unfortunately unavailable on the 
cassette drive. You must read in all of the data, then write 
it back out again, and finally add the new data before 
closing the file. It should now be obvious why we said that 
data management is far more convenient with the disk than 
with the cassette. 

Following, you will find a set of model programs for 
simple sequential data management on a cassette or disk 
drive. The individual programs can be easily modified for 
your own uses. First the cassette version. 



200 



Tricks & Tips 



1. Writing the data 

10 REM ************************************ 

20 REM WRITING FIRST AND LAST NAMES TO TAPE 

30 REM VERSION FOR DATASETTE / COMMODORE 64 

40 REM ************************************ 

50 PRINT CHR$(147) : REM ERASE SCREEN 

52 PRINT "OPENING FILE FOR WRITING" 

54 PRINT 

56 OPEN 1,1,1,"CBM 64 FILE" 

60 INPUT "LAST NAME : " ; LN$ 

70 INPUT "FIRST NAME : " ; N$ 

80 PRINT 

90 PRINT "WRITING - LAST NAME = " ; LN$ 

100 PRINT " - FIRST NAME = " ; N$ 

110 PRINT 

120 PRINT#1,LN$ 

130 PRINT#1,N$ 

140 PRINT 

150 INPUT "MORE (Y/N) " ; YN$ 

155 PRINT 

160 IF YN$="Y" THEN 60 

170 IF YN$="N" THEN 200 

180 PRINT "INVALID INPUT!" 

190 GOTO 140 

200 CLOSE 1 

210 END 



This program will save a desired number of first and 
last names to tape. Note that this program can only be used 
with a cassette recorder. The next program is the "opposite" 
of the first. It reads the data into the 64 and displays it 
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on the screen (or printer). Before running this program you 
must rewind the tape to the start of the file you created 
with the above program. 



2. Reading the data 

10 REM ************************************** 

20 REM READING FIRST AND LAST NAMES FROM TAPE 

30 REM VERSION FOR DATASETTE / COMMODORE 64 

40 REM ************************************** 

50 PRINT CHR$(147) : REM ERASE SCREEN 

52 PRINT "OPBNING FILE FOR READING" 

54 PRINT 

56 OPEN 1,1,0,"CBM 64 FILE" 

60 INPUT#1,LN$ 

70 INPUT#1,N$ 

80 IF ST AND 64 THEN 130 : REM END OF FILE? 

90 PRINT "READING - LAST NAME = " ; LN$ 

100 PRINT " - FIRST NAME = " ; N$ 

110 PRINT 

120 GOTO 60 

130 PRINT "END OF FILE - LAST NAME = " ; LN$ 

140 PRINT " - FIRST NAME = " ; N$ 

150 CLOSE 1 

160 END 
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This program reads all of the data previously saved by 
the first program and then displays it on the screen. If you 
want to send the data to the printer instead of the screen, 
you must change a few lines: 

58 OPEN 4,4 

90 PRINT#4, "HEADING - LAST NAME = " ; LN* 
100 PRINT#4," - FIRST NAME = " ; N$ 
110 PRINT#4 

130 PRINT#4,"END OF FILE - LAST NAME = " ; LN$ 
140 PRINT#4," - FIRST NAME = " ; N$ 

155 CLOSE 4 



There is yet another possibility, namely the addition 
of data. As we mentioned earlier, there is no simple way to 
append data to the end of a cassette-based sequential file 
as there is for such file on disk. The file must be read 
into memory in its entirety, the tape rewound, the file 
opened again for writing, and the previously read data 
written back to the tape. At the end you may add the new 
data. The same procedure would also allow you to change or 
erase individual data. 
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3. Adding data 

10 HEM ************************************ 

20 REM ADDING FIRST AND LAST NAMES TO TAPE 

30 REM VERSION FOR DATASETTE / COMMODORE 64 

40 REM ************************************ 

50 PRINT CHR$(147) : REM CLEAR SCREEN 

52 PRINT "OPENING FILE FOR READING" 

54 PRINT 

56 OPEN 1,1,0,"CBM 64 FILE" 

60 DIM LN$(100),N$(100) : 1=1 : REM 100 NAMES MAX. 

70 INPUT#1,LN$: LN$(I)=LN$ 

80 INPUT#1,N$ : N$(I)=N$ 

90 IF ST AND 64 THEN 130 

100 IF 1=100 THEN 130 

110 1=1+1 

120 GOTO 70 

130 EN=I 

135 PRINT 

140 PRINT "PLEASE REWIND THE TAPE." 

150 PRINT 

160 INPUT "DONE (Y/N) " ; YN$ 

170 IF YN$="N" THEN 130 

180 IF YN$="Y" THEN 210 

190 PRINT "INVALID INPUT!" 

200 GOTO 150 

210 PRINT "OPENING FILE FOR APPENDING" 

220 PRINT 

230 OPEN 1,1,1,"CBM 64 FILE" 

240 FOR 1=1 TO EN 

250 PRINT#1,LN$(I) 

260 PRINT#1,N$(I) 

270 NEXT I 
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280 PRINT "ADD DATA:" 

290 PRINT 

300 INPUT "LAST NAME : ";LN$ 

310 INPUT "FIRST NAME : ";N$ 

320 PRINT 

330 PRINT "WRITING - LAST NAME = " ; LN$ 

340 PRINT " - FIRST NAME = ";N$ 

350 PRINT 

360 PRINT#1,LN$ 

370 PRINT#1,N$ 

380 PRINT 

390 INPUT "MORE (Y/N) " ; YN$ 

400 IF YN$="Y" THEN 300 

410 IF YN$="N" THEN 440 

420 PRINT "INVALID INPUT!" 

430 GOTO 380 

440 CLOSE 1 

450 END 

Now you have a small address manager. To be sure, it 
lacks the addresses yet, but anyone with a bit of experience 
in programming will be able to expand the program to include 
this. 

We shall now turn to sequential file management on the 
disk drive. Here too we will offer the three examples which 
we gave for the datasette. This will allow you to compare 
and contrast the two. 
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1. Writing the data 

10 REM ************************************ 

20 REM WRITING FIRST AND LAST NAMES TO DISK 

30 REM VERSION FOR VIC-1541 / COMMODORE 64 

40 REM ************************************ 

50 PRINT CHR$(147) : REM CLEAR SCREEN 

52 PRINT "OPENING FILE FOR WRITING" 

54 PRINT 

56 OPEN 2,8,2,"CBM 64 FILE.S.W" 

60 INPUT "LAST NAME : " ; LN$ 

70 INPUT "FIRST NAME : ";N$ 

80 PRINT 

90 PRINT "WRITING - LAST NAME = " ; LN$ 

100 PRINT " - FIRST NAME = "jN$ 

110 PRINT 

120 PRINT#2,LN$ 

130 PRINT#2,N$ 

140 PRINT 

150 INPUT "MORE (Y/N) " ; YN$ 

155 PRINT 

160 IF YN$="Y" THEN 60 

170 IF YN$="N" THEN 200 

180 PRINT "INVALID INPUT!" 

190 GOTO 140 

200 CLOSE 2 

210 END 

Exactly as the previously-described program for the 
datasette, this program writes any number of first and last 
names to the diskette in sequential form. Naturally, this 
works only until the diskette, or better, the file space, is 
full. It requires a large amount of data to fill up a 
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diskette, but one should still take care in programming that 
no error or program crash will occur when the disk is full. 
So that you receive the full impression of the capacity of 
the disk, we want to show you a small example: 

The VIC-1541 disk drive can store a total of 174,848 
bytes (characters) on a diskette. We can use the following 
amounts for files: 

Sequential files : 168,656 characters 
Relative files : 167,132 characters 

A maximum of 144 programs and files can be saved. 

Let's assume that we have written a complete address 
manager. For the sake of example, assume our program expects 
the following data: 

Field Length 



Number 3 

First name 20 

Last name 20 

Street address 25 

City 25 

State 2 

Zip code 5 

Telephone number 14 

Notes 50 

Our data record is 164 characters long. To this we add the 
RETURN characters for the end of the fields (CHR$(13)). We 
must add one more character for each field. This yields a 
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total of 173 characters. How many records can we store on 
one diskette? 

The calculation we need here look like this: 

MAX = BYTES FOR SEQUENTIAL FILES / LENGTH OF A RECORD 

or in our example: 

168,656 / 173 = 974.8901734 

Since it will be a little difficult to make use of 
974.8901734 data records, and a little space on the diskette 
never hurts, we could store up to about 960 records. This 
number should suffice for most applications. If, however, 
you need to store more records, you must either write the 
program in such a way so that it can make use of multiple 
data disks or use a larger disk drive. In our example, using 
a Commodore 8250 drive would increase the storage capacity 
by a factor of 6 per drive. This would mean that the 8250 
could store more than 5500 addresses. 

This possibility is available to the Commodore 64. All 
that you need is the disk drive itself and an IEEE-488 
interface for the 64. 

2. Reading the data 

Now on to reading the data. The program is virtually 
identical to the cassette version. For the sake of 
completeness we will present this program again: 
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10 REM ************************************** 

20 REM READING FIRST AND LAST NAMES FROM DISK 

30 REM VERSION FOR VIC-1541 / COMMODORE 64 

40 REM ************************************** 

50 PRINT CHR4(147) : REM CLEAR SCREEN 

52 PRINT "OPENING FILE FOR READING" 

54 PRINT 

56 OPEN 2,8,2, "CBM 64 FILE.S.R" 

60 INPUT#2,LN* 

70 INPUT#2,N$ 

80 IF ST AND 64 THEN 130 : REM END OF FILE? 

90 PRINT "READING - LAST NAME = ";LN$ 

100 PRINT " - FIRST NAME = ";N$ 

110 PRINT 

120 GOTO 60 

130 PRINT "END OF FILE - LAST NAME = " ; LN$ 

140 PRINT " - FIRST NAME = " ; N$ 

150 CLOSE 2 

160 END 



As you see, this program has no important differences 
from the cassette version. The only significant difference 
in the ways in which the cassette and disk work with 
sequential files is the disk drive's ability to append to 
the end of a sequential file without having to read in and 
rewrite the old data. 
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3. Adding data 



10 REN ************************************* 

20 REM ADDING FIRST AND LAST NAMES TO A FILE 

30 REM VERSION FOR VIC-1541 / COMMODORE 64 

40 REM ************************************* 

50 PRINT CHR$(147) : REM CLEAR THE SCREEN 

52 PRINT "OPENING FILE FOR APPENDING" 

54 PRINT 

56 OPEN 2,8,2, "CBM 64 FILE, S, A" 

60 INPUT "NAME : ";LN$ 

70 INPUT " : ";N$ 

80 PRINT 

90 PRINT "WRITING - LAST NAME = " ; LN$ 

100 PRINT " - FIRST NAME = ";N$ 

110 PRINT 

120 PRINT#2,LN$ 

130 PRINT#2,N$ 

140 PRINT 

150 INPUT "MORE (Y/N) " ; YN$ 

155 PRINT 

160 IF YN$="Y" THEN 60 

170 IF YN$="N" THEN 200 

180 PRINT "INVALID INPUT!" 

190 GOTO 140 

200 CLOSE 2 

210 END 

As you have noticed, this program bears a strong 
resemblance to the program for writing the data — with one 
exception: The OPEN command was changed from 
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OPEN 2,8,2,"CBM 64 FILE.S.W" 

to 

OPEN 2,8,2, "CBM 64 FILE, S, A" 

This ability of the disk allows relatively easy manipulation 
of sequential files. 

At the close of this section, we would like to clarify 
the range of applications of sequential files. For data 
management where fast access and easy alteration of data is 
important, sequential files are used only under certain 
conditions. Sequential files files are used primarily when a 
file is to be created for a clearly defined purpose in a 
clearly defined form. An example is data exchange between 
computers. Sequential files can, in principle, be read by 
any computer provided the character sets (generally ASCII) 
are compatible. With relative files or direct access, the 
various disk operating systems use different means of 
managing the files and such an exchange is generally not 
possible. Another example is register files which are 
created once and then never changed, such as the book- 
keeping journal in accounting. 
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8.4 Copying files with one and two disk drives 

As we have discussed, there are various ways of 
expanding, changing, or erasing sequential files. Sequential 
data management can be very simple — but it is looked upon as 
only a primitive method of saving and retrieving data. 

In addition, it is sensible or even necessary to 
duplicate data or files so that after working with a file, a 
copy of data in its original condition is still available or 
so that should anything happen to one copy of the file, the 
other can still be used. 

We will first discuss copying files. In our example, we 
assume that the file has been saved sequentially. There are 
several ways of copying this file. First, we could read the 
entire file into the 64' s memory in order to copy the 
records into the new file. This method either requires a 
very large amount of memory (the diskette can contain up to 
170,000 characters while the Commodore 64 can hold only 
about 30,000 along with BASIC and program) or is limited to 
small files. A "compromise" is possible where a certain 
number of records are read in by blocks and then written 
back to the diskette. He will keep to the simplest method 
however and read each record in and then write it back. 

Our goal is to create a second file which, after the 
copying process, is identical to the original file. The only 
problem which we encounter here is that we must know how 
many fields each record has. In order to make the program 
easier to use, we also it to display which record it is 
working along with its fields. 
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50000 AD*="0RI6INAL FILE": 

REM NAME OF THE FILE (CHANGE AS NEEDED) 

50010 NF*="NEW FILE": 

REM NAME OF NEW FILE ( 

50011 NF*="@: "+NF*+",S,W" : 
REM WRITE NEW FILE 

50020 INPUT "HOW MANY FIELDS PER RECORD ";NF* 
50030 NF=VAL(NF*) 
50040 DIM FT* CNF > : 

REM DIMENSION FIELD TITLES 
50045 DIM DF*(NF) : 

REM DIMENSION DATA FILEDS 
50050 FOR 1=1 TO AF: 

REM INPUT ALL FIELD TITLES 
50060 INPUT FT*(I) 
50070 NEXT I 
50080 PRINT 

50090 PRINT "COPYING IN PROGRESS." 
50100 OPEN J. ,8,2., AF*: 

REM OPEN FILE FOR READING 
50110 OPEN 2,a,3,NF'f: 

REM OPEN FILE FOR WRITING 
50112 RN=.li 

REM BEGIN WITH RECORD 1 
50115 PRINT "READING RECORD NO. "SRN: 

PRINT 
50120 FOR 1 = 1 TO IMF: 

REM READ ALL FIELDS 
50 J. 30 I NPUT# 1 , DF* ( I ) 
50 140 PR I N T FT* < I ) ; " : " ; DF* < I ) 
50145 DL=S'C 

REM DL = FILE STATUS 
50150 NEXT I 
50160 PRINT 
50170 PRINT "WRITING RECORD NO."SNR: 

PRINT 
50180 FOR 1=1 TO NF: 

REM WRITE ALL FIELDS 
50190 PRINT#2,DF*(I) 
50200 NEXT I 
50210 PRINT 
50220 IF DL AND 64 
THEN 51000: 

REM END OF THE FILE? 
50230 DR=DR+l: 

REM NEXT RECORD 
50240 GOTO 50115 

5.1000 PRINT "ALL RECORDS COPIED." 
51010 PRINT 
51020 CLOSE £.: 

REM CLOSE THE FILES 
51030 CLOSE 1 
51040 PRINT "END. " 
51050 EMU 
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With this program you can easily copy your own 
sequential files, so long as you know the construction (the 
number of fields per data record) of the file. 

This routine has a problem, however. When you want to 
copy a very large file, you will very soon reach the limits 
of the disk drive's capacity. You can see that a 100,000 
character file (about 100KB) cannot be copied so easily with 
this program since you cannot create a destination file 
which has both the same construction and size of the 
original. 

In order to copy large files, we must either work with 
two disk drives or two different diskettes. The easiest and 
surest way is to make the duplicate using two disk drives. 
One of the drives must be defined as device 8 and the other 
as device 9. This can be done in software, although DIP 
switches* inside the drive can be changed to make the device 
number more permanent. 
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Once you have defined one drive as device 9, you can 
alter the previous program so that even large files can be 
copied. 

50110 OPEN 2,9,3,ND$: REM OPEN FILE FOR WRITING 

Data will now be read from drive 8, displayed on the screen, 
and written back to drive 9. 

Many programmers use record or 1 of their file or a 
second file to store information about the construction of 
the file. It would, for example, be very useful if you would 
save the number of fields and number of records as the first 
information in the file. This makes it unnecessary to input 
this information manually when you want to copy the file. In 
addition, you always know how many records must still be 
copied. If you have saved these two values in the file, the 
program must naturally be changed somewhat. 

50012 OPEN 1,8,2,AD$: REM OPEN ORIGINAL FILE FOR READING 

50013 INPUT#1,NF$: REM NUMBER OF FIELDS 

50014 INPUT#1,NR$: REM NUMBER OF RECORDS 

50015 CLOSE 1 

Delete line 50020 

50035 NR=VAL(NR$) 

50111 INPUT#1,NF$: INPUT#1,NR$: PRINT#2,NF$: PRINT#2,NR* 

50112 FOR RN=1 TO NR 

Delete lines 50145 and 50220 
50230 NEXT RN 
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Such a parameterized file is considerably easier to work 
with. 

Appending records can be done using the same principle. 
First the file must be copied with this program, then file 
2, the new data file, is not closed but expanded with the 
usual PRINT* commands. Once the file is expanded as desired, 
you can copy it back to the original. 



216 - 



Tricks & Tips 



8.5 Faster access: Relative files 

Other Commodore computers with BASIC 4.0 and Commodore 
64's equipped with IEEE expanders with BASIC 4.0 or MASTER 
64 have much easier methods of managing relative files than 
does an unaided Commodore 64. In a relative file, each 
record carries a number which, based on its position, is 
relative to the beginning of the file. This allows you to 
construct a data management program using one of two basic 
options: 

1) You use the ordering criterium of the relative 
file, namely the given record number, as the 
access key for your record. Using this, you could 
set the account number in an account file equal 
to the record number. This makes possible a 
faster, more direct access to the desired 
account. The same applies for part numbers and 
other numeric keys which you may want to use. 

2) You build a table which contains the keys 
indexed to the record numbers. If, for example, 
you have ordered your address file by names and 
want to search for an address with the name 
SMITH, you first search the table for the name 
SMITH and then using the record number associated 
with the name, access this record directly. This 
procedure is considerably faster and more elegant 
than reading through a sequential file until the 
name is found. 

Unfortunately, users of serial-oriented Commodore 64's 
who have not added BASIC 4.0 capability to their machines 
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cannot normally make use of these efficient relative files. 
The VIC-1541 disk drive's operating system is able to work 
with relative files, but the necessary commands are not 
available in the 64's Commodore BASIC 2.0. He would like to 
show you a way in which one can use relative files on the 
Commodore 64 in spite of this limitation. 

The possibility exists to inform the disk drive using 
CHR$ commands which record is to be written or read. The 
whole procedure consists of two parts: 

1) Opening the relative file with the usual OPEN command: 

OPEN filenumber, deviceaddress, channelnumber, 

"name, L, "+CHR$( length) 

The first part of this OPEN command is the same as that for 
sequential files. After the declaration of the name comes an 
"L". This L stands for LENGTH — the disk drive now knows that 
it is supposed to open a relative file. Next comes a very 
important CHR$ command. This command tells the disk drive 
the length of the data records in our file. In our previous 
example of the address file, we would enter 173 here as the 
record length. The Commodore 64 and the disk operating 
system allow a maximum record length of 254 characters. If a 
record requires more than 254 characters, either another 
file must be opened and the record divided into two or more 
smaller records or you can write in the same file and make 
note of the fact that every second record is the second part 
of the "meta-record. " 
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2. Positioning the record pointer: 

PHINT# channelnumber, "P"+CHR$(channelnumber)+ 
CHR$(low)+CHR$(high) 

The special part of this command begins after the 
declaration of the file number. The "P" means POSITION and 
tells the operating system that the following CHR$ commands 
are to set the record pointer through the input of LOW and 
HIGH (we will show you later how to calculate LOW and HIGH). 

The command can be expanded even farther. If you add 
another CHR$ command to the end of the current string, this 
will designate the position within data record. This allows 
you to set the record pointer to a specific character. 

There is one very important characteristic of relative 
files which must be noted: 

A terminating character (CHR$(13)) must be written to 
the record after each FIELD is written. Without this 
separating character, the computer will not be able to 
distinguish between successive fields. For this reason we 
have always placed the PRINT* commands on different lines so 
that a carriage return, CHR$(13), is automatically saved 
between the records. 

This will all be made clearer through an example. 
Therefore, we have included a completely functional 
inventory control program at the end of this section so that 
you can see the procedures discussed in the section actually 
used in a program. We believe that the trouble of typing 
this program in will be well worth it, since with only minor 
changes it can be used as an address manager, tape and 
record cataloguer, and more. 
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But first to the above-mentioned HIGH and LOW numbers. 

These HIGH and LOW numbers together give the actual data 

record number. The formula for calculating the record number 

is : 

record number = HIGH * 256 + LOW 

This allows us access to records with numbers greater than 
255. To read the 78th record, for instance, we must first 
calculate HIGH and LOW: 

HIGH = INT (record number / 256) 

LOW = record number - HIGH * 256 

or in a concrete example 

HB=INT(78/256): LB=78-HB*256 

which yields the values 

HB = 0, LB = 78 

This calculation is rather trivial for reading a record 
whose number is less than 256, but this example shows how 
all of the calculations can be made. 

This result must now be used in the command to set the 
record pointer. To set the pointer to the 78th record, the 
command is 

PRINT* channelnumber, "P"+CHR$ (channelnumber )+CHH$(0)+CHR$ (78) 

In our inventory management program, you will find the 

- 220 - 



Tricks & Tips 



following structure: 

PHINT#15 , "P"+CHH$ ( 3 ) +CHR$ ( 231 ) +CHR$ ( 3 ) +CHR$ ( 1 ) 

This command will set the pointer to the first character 
within the 999th data record of the file. 

Before the file can be used, it must first be prepared 
for relative operation. This is done by setting the record 
pointer to a record and then writing to this record with the 
character CHR$(255). This character tells the operating 
system that an existing data record lies at this point, in 
which nothing has yet been written. In our example, all of 
the 999 records are marked with this character. 

Now we can write the record in this file, but no more 
than we have declared when we opened the file. If one tries 
to write a record which lies outside of the allowed range, 
the computer will respond with the error message RECORD NOT 
PRESENT, since this data record does not exist. 

In our program, after you start it with RUN, you will 
be asked if the disk drive is connected. This message will 
appear until you press the Y key. After this, you will be 
asked if you want to use a new disk. "New" means only that 
the disk is unformatted or that it has not been initialized 
for the file. Be careful, though, because the disk will be 
formatted in any event, so don't use a disk which contains 
anything you might want to keep. When this is done, the main 
menu will appear. From this point, you can call up six 
possible functions. 

When you want to construct a record, remember that the 
input may be no longer than the length given in the data 
lines (30-82). These lines are constructed such that the 
name is entered first and then the length of the field. To 
delete an existing record, go to the routine CHANGE and 
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enter an 8 as the first character in the DESCRIPTION field. 
This will mark the record as erased. 

In any function, you can return to the main menu by 

entering BND when asked to enter the part number. 

When first entering a part, only the part number and 
description are entered. To enter an initial quantity, you 
must enter this quantity as a sales slip. At this time you 
will also have to opportunity to set cost and price of the 
item. This must also be done when receiving items. To update 
the inventory (when goods are sold), enter the quantity sold 
as a negative number when entering the sales slip. You do 
not have to re-enter the cost and price each time — just 
press RETURN when asked. 

In addition, a printer and disk drive must always be 
connected when working with this program. If you do not have 
a printer, you must rewrite the program. Lines containing 
PRINT#4 commands must be changed since these are the lines 
which send the data to the printer. 

If this program is to be used for multiple branches or 
by more than one person, it is recommended that a new disk 
be used for each branch or person. 

He hope that this program will offer you some insight 
into data management, especially data management with 
relative files. It looks at first glance more difficult than 
it really is. With a little practice, you will be able to 
design similar programs of your own. 
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10 

15 



20 



30 
32 
34 
36 
38 
40 
42 
50 



56 
5S 
60 
70 



76 

78 

80 

82 

100 

110 

120 

130 

140 

150 
160 



170 



180 
190 



200 
210 



220 

222 
230 
240 
250 
260 
270 



CLR 

ME(1)=1.065: 
ME(2)=1.13: 
ME (3) =1.07: 
ME(4)=1. 14 
FOR 1=1 TO 7: 

READ TD*<I),TD(I): 



NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
FOR : 



I 

"1) 

"2) 

"3> 

"4) 

"5) 

"6) 

"7) 

= 1 



PART NUMBER 
DESCRIPTION 
QUANTITY 
COST /EACH 
TOTAL COST 
PRICE/EACH 
TOTAL PRICE 
TO 3: 



READ TI*(I),TI <I>: 
NEXT I 

DATA "1> PART NUMBER 
DATA "2) DESCRIPTION 
DATA " 
FOR 1=1 TO 4: 

READ TT*<I) ,TT<I) : 



,7 
,8 

,8 



• , 20 
M 



I 

"1) 
" 2) 
"3> 
"4) 



BRANCH NUMBER 

DATE 

ACCOUNT NUMBER 

RECEIPT NUMBER 



%1 
",8 
",S 
",8 



CHR*(147) 

"**♦***»****#***#****##**##***********•***'' 
"* DATA MANAGEMENT PROGRAM 1.0 *' 

" **************************************** ' 



"DISK DRIVE CONNECTED? 



NEXT 
DATA 

DATA 
DATA 
DATA 
PRINT 
PRINT 
PRINT 
PRINT- 
PRINT 
PRINT 
PRINT 
GET A*: 
IF A*="" 
THEN 160 
IF A*<>"Y" 
THEN 160 
PRINT A* 

OPEN 15,8, 15, "10": 
CLOSE 15 

PRINT "NEW DISKETTE? 
GET A*: 
IF A*="" 
THEN 210 
IF A*<>"Y" 
THEN 300 
PRINT A* 

OPEN 15,8, 15, "N:DATA 
OPEN 1,8,3, "0: INVDAT 
PRINT#15, "P"+CHR*(3) +CHR*<2 
PRINT#1,CHR$(255)!J 
RM=INT( 167132/64) 



<Y/N) 



DISKETTE. AH" 
L, "+CHR*(64> 

1)+CHRS(3)+CHR*(1) 
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280 CLOSE l: 

CLOSE 15 
300 PRINT CHR*U47> 

310 PRINT "***»********#*#****-K-*****##*****»-»#***#»" 
320 PRINT "* DATA MANAGEMENT PKOGRAM 1.0 *• 
330 PRINT "************#*******************#*******" 
340 PRINT : 

PRINT 
345 PRINT TAB(15)5"MAIN MENU": 

PRINT : 

PRINT 
350 PRINT " 1) ENTER PART": 

PRINT 
355 PRINT " 2) CHANGE PART": 

PRINT 
360 PRINT " 3) ENTER SALES SLIP": 

PRINT 
365 PRINT " 4) PRINT PARTS LIST": 

PRINT 
370 PRINT " 5) PRINT EVALUATION": 

PRINT 
375 PRINT " 6) EXIT PROGRAM": 

PRINT : 

PRINT 
380 PRINT "YOUR SELECTION (1-6) : "; 
390 GET A*: 

IF A*="" 

THEN 390 
400 A=VAL(A*>: 

IF A<1 OR A>6 

THEN 390 
410 PRINT A* 
420 FOR 1=1 TO 1000: 

NEXT 
430 ON A 

GOTO 1 000 , 2000 , 3000 , 4000 , 5000 , 6000 
1000 OPEN 15,8,15s 

OPEN 8,8,8, "OSINVDAT" 
1002 GOSUB 12000 
1005 PRINT CHR*(147> 

1010 PRINT "to***********-***************************" 
1020 PRINT "* DATA MANAGEMENT PROGRAM 1.0 *" 
1030 PRINT "***##**#*********#**************#***•***" 
1040 PRINT : 

PRINT 
1050 PRINT TAB (7) % "INPUT PART": 

PRINT : 

PRINT 
1060 FOR I==l TO 2 
1065 TE*(I)="" 
1070 PRINT TI*(I)5 
1080 INPUT TE*(I) 
1090 NEXT 
1092 IF TE*(1)="END" 

THEN 1200 
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1093 
1095 

1100 
1102 



1110 
1120 

1130 
1140 
1150 
1200 

1220 
2000 

2002 
2005 
2010 
2020 
2030 
2040 

2050 



2055 
2060 
2070 
2080 
2090 

2100 

2110 
2120 

2130 
2140 
2142 

2150 
2160 
2170 
2180 
2190 

2200 



2210 
2220 
2230 
2240 



FOR 1=1 TO 3 

IF LEN(TE*(I> > >TI <I> 

THEN 1065 
NEXT 
FOR 1=4 TO 8: 

TE* (!>="": 
NEXT 

RN=VAL<TE*<1> ) 
IF RN<1 OR RN>999 
THEN 1005 
BOSUB 10000 
GOSUB 10070 
SOTO 1005 
CLOSE 8: 
CLOSE 15 
SOTO 300 
OPEN 15,8, 15: 
OPEN 8,8,8, "OIINVDAT" 



12000 
CHR*(147) 

11 ********#*******#*******#******»***■***•** " ; 

"* DATA MANASEMENT PROBRAM 1.0 *"5 



BOSUB 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT : 

PRINT 

PRINT TAB <8) ! "CHANGE PART": 

PRINT : 

PRINT 

TE* <!)="" 

PRINT TI*<1) ; 

INPUT TE*(1> 

PRINT 

IF TE*(1)="END" 

THEN 2400 

IF LEN(TE*(1) ) >TI (1) 

THEN 2055 

RN=VAL(TE*<1) ) 

IF RN<1 OR RN>999 

THEN 2005 

BOSUB 10000 

BOSUB 10030 

IF VAL(TE*(1) )<>RN 

THEN 2005 

PRINT CHR*(147> 

PRINT "#♦***#*»*********»*****#*#**************" ; 

PRINT "* DATA MANASEMENT PROBRAM 1.0 *'"; 

PR I NT " *##*###***#*#*********************#****# " 5 

PRINT : 

PRINT 

PRINT TAB (8) "CHANBE PART": 

PRINT : 

PRINT 

FOR 1=1 TO 2 

PRINT TI*(I)5 "? "5 

PRINT TE*(I) 

PRINT CHR*(145) 5 
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2250 PRINT TI*(I) 5 
2260 INPUT TE*(I) 
2270 PRINT 
2280 IF TE*<1)="END" 

THEN 2400 
2290 IF LEN < TE* < I ) ) >T I < I ) 

THEN 2250 
2300 NEXT 
2310 RN=VAL(TE*<1> > 
2320 IF RN<1 OR RN>999 
THEN 2005 
60SUB 10000 
10070 

4: 

8: 

15 
300 
3005 
15,8, 15: 
8,8,8, "0: INVDAT" 

4,4: 



2330 
2340 
2400 



2430 
2530 
3000 

300 1 

3002 
3005 
3010 
3020 
3030 
3040 



3060 
3070 
3080 
3090 
3100 

3110 

3120 
3130 

3132 

3134 

3140 
3 1 50 
3152 

3154 

3160 
3170 
3180 



12000 

CHR*<147> 

" #**#****»****♦******###*«*********#***** '■ 

"* DATA MANAGEMENT PROGRAM 1.0 *" 

" ******#**#*******#*******»***»***♦**#*■)(■* " 



GOSUB 
CLOSE 
CLOSE 
CLOSE 
GOTO 3 
GOTO 
OPEN 
OPEN 
OPEN 
DV=1 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT : 
PRINT 

PRINT TAB(7) "ENTER SALES SLIP' 
PRINT : 
PRINT 
TE*(1)="" 
PRINT 
INPUT 
PRINT 
IF TE*(1>= 
THEN 3700 
IF I..EN(TE*(1) >: 
THEN 3060 
RN=VAL ( TE* < 1 > > 
IF RN<1 OR RN>999 
THEM 3005 

IF DW=1 AND RN>799 
THEN 3005 
IF DW=2 AND RNOOO 
THEN 3000 
GOSUB 10000 
GOSUB 10030 
IF VAL<TE*<1) )<:. 
THEN 3005 
IF LEFT*(TE*<2> , 
THEN 3005 
PRINT CHR*<147) 

PF:INT "#*********#*#************♦#*******»*****" 
PRINT "* DATA MANAGEMENT PROGRAM 1.0 *" 
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TE* ( 1 ) 



'END" 



•TI (1) 



>RN 



. 1) = 
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3190 PRINT "****#**#*»**#****#**********************" ; 
3200 PRINT : 

PRINT 
3210 PRINT TAB (7) "ENTER SALES SLIP": 

PRINT : 

PRINT 
3212 FOR 1=1 TO 5 
3214 TH*<I)=TE*(I+3> 
3216 NEXT 
3220 FOR 1=1 TO 2 
3230 PRINT TD*<D"? "TE*(I> 
3235 TX*(I)=TE*(I) 
3240 PRINT 
3250 NEXT 
3255 TX*(3)=TE*<3> 
3260 PRINT TD*<3) j 
3270 INPUT TX*(4) 
3275 TE*(4)=TX*<4) 
3280 PRINT 
3285 IF VAL(TE*<4> X-999 OR VAL <TE* (4) > >999 

THEN 3260 
3287 IF LEN(TE*<4> > >TD<3> 

THEN 3260 
3290 PRINT TD*<4> i 
3295 TE*<5>="" 
3300 INPUT TX*<5> 
3305 TE*(5>=TX*<5) 
3310 PRINT 
3315 IF LEN(TE*(5) ) >TD(4) 

THEN 3290 
3320 PRINT TD*<6>! 
3325 TE*<7)="" 
3330 INPUT TX*<7) 
3335 TE*(7)=TX*(7) 
3340 PRINT 

3345 IF LEN(TE*(7) ) >TD (6) 
THEN 3320 

3346 TH=VAL ( TE* ( 4 ) ) 

3347 TH=TH+VAL ( TH* (1 ) ) 

3348 TE* < 4 ) =STR* ( TH ) 

3350 TH=VAL(TE*<5) )*VAL(TE*(4) ) 

3351 TX*(6)=STR*(TH) 
3355 TE*<6)=STR*<TH) 

3360 TH=VAL ( TE* < 7 ) ) * V AL ( TE* ( 4 ) ) 

3361 TX*(8)=STR*<TH) 
3365 TE*(8)=STR*(TH) 

3370 TH= VAL ( TE* ( 5 ) ) 

3371 IF VAL(TE*(4) XI 
THEN TH=-TH 

3375 TE*(5)=STR*(TH) 

3380 TH=VAL(TE*(7) ) 

3381 IF VAL(TE*(4) XI 
THEN TH=-TH 

3385 TE*(7)=STR*(TH) 
3460 RN=VAL ( TE* ( 1 > ) 
3470 SOSUB 10000 
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3480 BOSUB 10070 
3485 FOR 1=1 TO 8: 

TE*(I>=TX*<I>: 
TX*<I)="": 
NEXT 
3490 IF DW=0 AND VAL (TE* ( 1 ) X800 
THEN DW=l: 
GOSUB 5360: 
SOTO 3510 
3500 IF DW=0 AND VAL (TE* ( 1 > ) >799 
THEN DW=2: 
BOSUB 7005: 
BOTO 3520 
3510 IF DW=1 

THEN BOSUB 5520: 
BOTO 3530 
3520 IF DW=2 

THEN BOSUB 7120 
3530 BOTO 3005 
3700 IF DW=1 

THEN BOSUB 5590: 
SOTO 3800 
3710 IF DW=2 

THEN BOSUB 7190 
3800 DW=0: 
DV=0 

3999 CLOSE 4: 
CLOSE 8: 
CLOSE 15: 
SOTO 300 

4000 OPEN 15,8, 15: 

OPEN 8,8,8, "0:INVDAT" 
4002 BOSUB 12000 
4005 PRINT CHR*<147) 

4010 PRINT "*»#****»*#**************#****»***#*##*** " 
4020 PRINT "* DATA MANASEMENT PROGRAM 1.0 #" 
4030 PRINT "##****#**#»**************#******#**##*#*" 
4040 PRINT : 

PRINT 
4050 PRINT TAB (8) "PRINT PARTS LIST": 

PRINT : 

PRINT 
4060 FOR 1=1 TO 2 
4070 TE*(I>="" 
4080 PRINT TT*(I); 
4090 INPUT TE*(I) 
4100 PRINT 
4110 IF TE*(1)="END" 

THEN 4999 
4120 IF LEN(TE*(I> > >TT ( I ) 

THEN 4070 
4130 NEXT 
4135 TE*<3)="": 

TE*(4>="" 
4140 IF DV=1 

THEN RETURN 
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4200 
4210 
4220 
4230 
4240 

4250 



4260 
4270 



4280 

4290 
4300 
4310 
4330 
4340 
4345 
4350 
4360 
4375 
4385 
4390 
4405 
4415 
4420 
4430 
4440 
4442 

4444 

4450 
4460 
4470 

4480 
4490 
4492 
4494 

4999 



5000 

5002 
5005 
50 i 
5020 
5030 
5040 

5050 



* DATA MANAGEMENT PROGRAM 1.0 *" 



<Y/N) 



PRINT CHR* (147) 

PRINT 

PRINT 

PRINT 

PRINT : 

PRINT 

PRINT TAB<8) "PRINT PARTS LIST": 

PRINT : 

PRINT 

PRINT "IS THE PRINTER TURNED ON? 

BET A*: 

IF A*="" 

THEN 4270 

IF A*<>"Y" 

THEN 4270 

PRINT A* 

OPEN 4,4 

PR I NT#4 , " BRANCH NO . " J TE* ( 1 ) ; 

PRINT#4,CHR*<16> ; "20"; "DATE ";TE*<2>; 

PRINT#4,CHR*<16>5 "40" 5 "ACCOUNT NO. ";TE*(3>; 

PRINT#4, CHR* < 16) ; "60"; "RECEIPT NO. ";TE*<4> 

PRINT#4 

PRINT#4, "PART NO."; 

PRINT#4,CHR*<16> ; " 15" ; "QUANTITY" ; 

PRINT#4,CHR*<16) ; "25"; "DESCRIPTION" 

PRINT#4, " "i 

PRINT#4,CHR*(16) ; "15" j " "5 

PRINT#4, CHR* < 16) 5 "25" ; " " 

FOR RN=1 TO 999 

BOSUB 10000 

GOSUB 10030 

IF VAL<TE*<1> )<>RN 

THEN 4480 

IF LEFT*<TE*(2> , 1)="@" 

THEN 4480 

PRINT#4,TE*<1) S 

PR I MT#4 , CHR* ! 16 ) ; " 1 5 " j TE* ( 4 ) ; 

PRINT#4,CHR*<16) ; "25";TE*(2) 
NEXT 
FOR 1=1 TO 3 

PRINT#4 
NEXT 
CLOSE 4: 
CLOSE 8: 
CLOSE 15: 
GOTO 300 
OPEN 15,8,15: 
OPEN 8,8,8, "0: INVDAT" 
BOSUB 12000 
PRINT CHR* (147) 

PRINT "******#******##********#*******•********* 
'* DATA MANAGEMENT PROGRAM 1.0 * 



PRINT 
FRINT 
PRINT 
PR IN I 
PRINT' 



TAB (9) "PRINT 



THE EVALUATION": 
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PRINT : 

PRINT 
5060 FOR 1=1 TO 4 
5070 TE*<I)="" 
5080 PRINT TT*(I) ! 
5090 INPUT TE*(I) 
5100 PRINT 
5110 IF TE*<1)="END" 

THEN 5999 
5120 IF LEN<TE*<I> ) >TT ( I ) 

THEN 5070 
5125 IF DV=0 AND 1=2 

THEN 1=4 
5130 NEXT 
5140 IF DV=1 

THEN RETURN 



5200 
5210 
5220 
5230 
5240 

5250 



5252 



5260 
5270 



52S0 

5290 
5300 
5310 
5330 



5340 

5345 
5350 

5355 



PRINT CHR*<147> 

PR I NT " **************************************** " ; 

PRINT "* DATA MANAGEMENT PROGRAM 1.0 *"j 

PR I NT " #**#*###*###*******###***#*#************ " i 

PRINT : 

PRINT 

PRINT TAB <9> "PRINT EVALUATION": 

PRINT : 

PRINT 

SA=0: 

SE=0: 

sg=o: 

sf=o: 

SH=0 

FOR 1=1 TO 4: 

Ml (i>=o: 

M2(I)=0: 
NEXT 

PRINT "IS THE PRINTER TURNED ON? <Y/N) " ; 
GET A*: 
IF A*="" 
THEN 5270 
IF A*<>"Y" 
THEN 5270 
PRINT A* 
OPEN 4,4 

PR I NT#4 , " BRANCH NO . "5 TES < 1 ) 5 
PRINT#4, CHR* ( 16) 5 "20" ; "DATE " ! TE* (2) 5 
IF DV=0 
THEN PR1NT#4: 

GOTO 5350 
PRINT#4, CHR* < 16) ; "40" 5 "ACCOUNT NO. 
PR I NT#4 , CHR* ( 1 6 > ; " 60 " J " RECE I PT NO „ 
PRINT#4 
IF DV=1 
1 HEN RETURN 



' ;TE*<3) 5 

' 5 TE* ( 4 ) 



5360 PRINT#4, "PART NO. "? 

3370 PRINT#4,CHR*<16> ? "10" i "QUA. 
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5375 
5380 
5390 
5400 
5410 
5420 
5425 
5430 
5440 
5450 
5460 
5470 
5475 

5480 
5490 
5500 
5510 

5515 

5520 
5525 
5530 
5540 
5550 
5560 
5570 
5571 
5572 
5573 
5574 
5575 
5576 

5579 



PRINT#4,CHR*<16> ; 
PRINT#4,CHR*<16) ; 
PRINT#4,CHR*<16) 5 
PRINT#4,CHR*(16> ; 
PRINT#4,CHR*(16> ; 

PRINT#4, " 

PRINT#4,CHR*<16>; 
PRINT#4,CHR*<16> 5 
PRINT#4,CHR*<16) 5 
PRINT#4,CHR*<16) ; 
PRINT#4,CHR*<16>5 
PRINT#4,CHR*<16> ; 
IF DV=1 
THEN RETURN 
FOR RN=1 TO 799 
SOSUB 10000 
GOSUB 10030 
IF VAL<TE*<1) X 
THEN 5580 
IF LEFT*<TE*<2) 



•15" 
■40" 
•50" 
'60" 
'70" 

I a 

'10" 
'15" 
'40" 
■50" 
'60" 
■70" 



5 "DESCRIPTION" 
; "COST/EA"; 
; "TDT COST"? 
5 "PRICE/EA"; 
i "TOT PRIC" 
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>RN 

, 1)="@" 



THEN 



580 



PRINT#4,TE*<1) ; 

PRINT#4,CHR*(16 

PRINT#4,CHR*<16 

PRINT#4,CHR*<16 

PRINT#4,CHR*(16 

PRINT#4,CHR*(16 

PRINT#4,CHR*(16 

SA=SA+VAL(TE*<4 

SE=SE+VAL(TE*(5 

SG=SG+VAL(TE*<6 

SF=SF+VAL(TE*<7 

SH=SH+VAL(TE*<8 

IF VAL<TE*(3) > 

THEN 5579 

IF DV=1 

THEN RETURN 



- "10"STE*(4) II 
'15"5TE*<2> ; 
'40";TE*<5) ; 
"50"5TE*(6) ; 
"60";TE*<7) 5 
'70";TE*<8) 



> ; 

) 5 ' 
) 5 

>; 
) 

>S ' 

) ) 

) ) 

> ) 

) ) 

>) 

1 OR VAL(TE*<3) ) >4 



5580 


NEXT 










5590 


PRINT#4, " 


1 ; 






5600 


PRINT#4 


CHR*<16) 5 


'10' 


■ it „.__ ii » 




5605 


PRINT#4 


CHR*(16) ; 


'15' 


»i» .^ 








5610 


PRINT#4 


CHR*(16) ; 


•40' 


• ii 


5 


5620 


PRINT#4 


CHR*(16) ; 


'50' 


- ii 


5 


5630 


PRINT#4 


CHR*(16) 5 


'60' 


. ii 


' H 


5640 


PRINT#4 


CHR*(16> S 


'70' 




' 


5650 


PRINT#4 


"TOTALS: " 








5660 


PRINT#4 


CHR*(16) ; 


'09' 


USA; 




5670 


PR I NT #4 


CHR*(16) 5 


'39' 


use; 




5680 


PR I NT#4 


CHR*<16) ; 


'49' 


;SB; 




5690 


PRINT#4 


CHR9.U6) ; 


'59' 


;SFi 




5700 


PRINT#4 


CHR*U6> ! 


'69' 


;sh 




5775 


FOR 1=1 TO 3. 

PRINT#4: 
NEXT 








5777 


RETURN 








5780 


GOSUB 700O 








5999 


CLOSE 4 
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CLOSE 8: 
CLOSE 15: 
GOTO 300 
CLOSE 4: 
CLOSE 8: 
CLOSE 15 
PRINT CHR* (147) 
END 

si=o: 

S2=0 

PRINT#4, "PART NO. "5 

PRINT#4,CHR« < 16) ; " 15" 5 "DESC" ; 

PRINT#4, CHR* < 16) 5 "40" 5 "EXPENDITURES" ; 

PRINT#4, CHR* < 16) ; "60" ; "RECEIPTS" 

PRINT#4, " "; 

PRINT#4, CHR* ( 16) ; " 15" f " " 5 

PRINT#4,CHR*<16>;"40"; " "? 

PRINT#4, CHR* < 16) 5 "60" i " " 

IF DV=1 

THEN RETURN 

FOR RN=800 TO 999 

GOSUB 10000 

GOSUB 10030 

IF VAL<TE*<1> )<>RN 

THEN 7180 

PRINT#4,TE*<1) ; 

PRINT#4,CHR*<16> ; "15"5TE*(2> i 

PRINT#4,CHR*(16);"40"5TE*<5) ; 

PRINT#4, CHR* (16)5 "60" ; TE* (7) 

S1=S1+VAL(TE*<5> ) 

S2=S2+VAL(TE*(7>) 

IF DV=1 

THFN RETURN 
NEXT 

PR I NT#4 , " " s 

PRINT#4, CHR* ( 16) ; " 15 " ; 

PRINT#4,CHR*(16) 5 "40"S " "! 

PRINT#4,CHR*(16) 5 "60".! " " 

PRINT#4, "TOTALS: "5 
PRINT#4,CHR*(16> ; "39" 5 SI; 
PRINT#4, CHR* ( 16) ; "59" ; S2 
FOR 1=1 TO 3: 

PRINT#4: 
NEXT 
FOR 1=1 TO 3: 

PRINT#4: 
NEXT 
RETURN 

PRINT CHR* (147) 

PRINT "****###**#*####*#*»♦***#****************" 
PRINT "* DATA MANAGEMENT PROGRAM 1.0 *" 
PRINT "**#************************************#" 
PRINT : 
PRINT 

PRINT TAB(7) ; "ENTER SALES SLIP": 
PRINT : 
PRINT _ 232 _ 



6000 



6030 
6040 
7000 

7005 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7075 

7080 
7090 
7100 
7110 

7120 
7130 
7140 
7150 
7160 
7170 
7175 

7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 



7380 



7999 
8000 
8010 
B020 
8030 
8040 

8050 



8060 SA=0: Tricks & Tips 

SE=0: 
SG=0: 
sf=o: 
sh=o: 
si=o: 

S2=0 
8070 FOR 1=1 TO 4 
8072 M1(I)=0 
8074 M2 ( I > =0 
8076 NEXT 

8080 PRINT "IS THE PRINTER TURNED ON? (Y/N) "; 
8090 GET A*: 

IF A*="" 

THEN B090 
8100 IF A*<>"Y" 

THEN 8090 
8110 PRINT A* 
8120 OPEN 4,4 
8130 RETURN 
8500 PRINT CHR*(147> 

8510 PRINT "**#**#********************#*************" 5 
8520 PRINT "* DATA MANAGEMENT PROGRAM 1.0 *"; 
8530 PRINT "•»»*****»»******»*******»♦**#****#*******" I 
8540 PRINT : 

PRINT 
8550 PRINT TAB (7) 5 "ENTER SALES SLIP": 

PRINT : 

PRINT 
8560 GOSUB 5060 
8570 GOSUB 5310 
8580 RETURN 
10000 HB=INT<RN/256) : 

LB=RN-HB*256 
10010 PRINT#15, "P"+CHR*(8)+CHR*(LB>+CHR*<HB)+CHR*<1) 
10015 GOSUB 12000 
10020 RETURN 
10030 INPUI#8,TE*<1) ,TE*(2> , TE* (3) , TE* (4) , TE*(5> , TE* <6) , 

TE*<7),TE*(8) 
10060 RETURN 

1 0070 TE*=TE* ( 1 ) +CHR* (13) +TE* ( 2 ) +CHR* < 1 3 ) +TE* ( 3 > +CHR* < 1 3 

)+TE*(4)+CHR*(13) 
10072 TE*=TE*+TE* (5) +CHR* (13) +TE* (6) +CHR* (13) +TE* (7) +CHR 

*(13)+TE*(8) 
10080 PRINT#8,TE* 
10110 RETURN 

1 2000 I. MPUTtt 1 5 , X , X*, Y* . Z* 
12010 IF XOO 

THEN 12030 
12020 RETURN 

12030 print x;x*;y*;z*: 

CLOSE a: 

CLOSE 15 
12040 FOR 1=1 TO 6000: 

NEXT 
12060 GOTO 100 _ 233 - 
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8.6 Another method: Direct access 

This method of accessing data on the diskette is 
unfortunately often ignored or overlooked. It is quite 
complicated but it has some very interesting aspects. What 
does direct access allow us to do? 

1) Accessing files - random files 

This method has something to do with sequential file 
management, but without the disadvantages, and also has 
something in common with relative files. 

2) Accessing individual tracks on the disk 

This method of access offers you possibilities which 
you had probably not thought of before, and whose purpose 
you may not yet see. We will discuss it in greater detail 
later. 

1. Random files 



In contrast to the sequential and relative files, a 
single block in a random file is 256 bytes long, and a total 
of 664 such blocks can be stored on a diskette. You can also 
store shortur records, such as 4 64-byte records in a block. 
The task of correctly accessing the exact location within 
the block falls now to the programmer. To use a random file, 
you must first open a sequential file in order make note of 
the tracks in which you have stored the data. You will need 
a total of three files: 
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1) Sequential file for the pointer 

2) Command file 

3) Data file for direct storage 



10 OPEN 4,8,4,"CBM 64 FILE.S.W": HEM SEQUENT. FILE 

20 OPEN 15,8,15: REM COMMAND CHANNEL 

30 OPEN 5,8,5, "#": REM DATA FILE 

40 TE$="ABACUS SOFTWARE" 

50 PRINT#5,TE$;",";1: REM TEXT, RECORD # 

60 T=l: S=l: REM TRACK=1, SECTOR=l 

70 PRINT#15,"B-A:";0,T,S: REM DRIVE, TRACK, SECTOR 

80 INPUT#15,ER,NA$,TR,BL: REM READ ERROR 

90 IF ER=65 THEN T=TR: S=BL: GOTO 70 

100 PRINT#15,"B-W:";5,0,T,S: REM WRITE RECORD 

110 PRINT#4,T;",";S 

120 CLOSE 5 

130 CLOSE 15 

140 CLOSE 4 

150 END 

What does this program do? First it opens the three 
required files, then defines some text which will later be 
written to the disk. This text is first written to the data 
buffer, after which the operating system searches for the 
next free block on the diskette. The search begins at track 
1, sector 1, the start of the diskette (line 70). "B-A: " 
means Block-Allocate and attempts to allocate the block 
defined by the drive, track, and sector numbers. If this 
block is not free (it is being used by some other file, or 
perhaps another part of the current one) the operating 
system will search until it finds a free block. In order to 
see if the sought-after block is free or not, we must read 
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the command channel. If the error code has the value 65, we 
know that the block was not free. Once the computer finds a 
free block, it then writes the data stored in the data 
buffer in the proper block on the diskette. After this, it 
writes the address of the block to the sequential file so 
that the record can be found again later. At the same time, 
the operating system also makes note of this block so that 
it will not be overwritten by other files. The files are 
closed and the program ends. 

Equally interesting is the retrieval of the data: 

10 OPEN 4,8,4,"CBM 64 FILE" 

20 OPEN 15,8,15 

30 OPEN 5,8,5, "#" 

40 INPUT#4,T,S: REM READ THE ADDRESSES 

50 PRINT#15,"B-R:";5,0,T,S 

60 INPUT#5,TE$,RE 

70 PRINT#15,"B-F:";0,T,S 

80 CLOSE 5 

90 CLOSE 4 
100 PRINT#15,"S:CBM 64 FILE" 
110 CLOSE 15 

After the file is opened, the address (track and 
sector) of the block in which the data is saved is read in. 
The block itself is read, and the block is freed once again 
with the Block-Free command in line 70. This is to be done 
only when the block is to be deleted. Finally, the 
sequential and data files are closed, the sequential file is 
scratched, and the command channel is closed. 
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2. Direct disk access 

This access makes it possible, as the name suggests, to 
directly access any desired tracks and sectors on the disk, 
that is, to read from and write to the disk without opening 
any files. This allows you to read the directory, for 
example, without using the L0AD"$",8 command and thereby 
destroying any program in memory. Or you could change a 
program on the diskette without having to load it; even 
destroyed programs can, under certain circumstances, be 
repaired. 

This method of access is also quite dangerous, so we 
would like to warn all those against it who do not possess a 
good working knowledge of the construction of the diskette, 
the directory, and the BAM. Entire files and even the whole 
disk can be destroyed very easily with this command. To find 
out more about these commands, we refer you to the VIC-1541 
user's guide or to the book The Anatomy of the 1541 Disk 
P.£iY.e. If you want to experiment with these commands, be 
sure to do it on a disk which does not contain any data or 
programs you might want to keep. 

Here is a list of the commands which can be used to directly 
access the blocks on the diskette: 

Name Use 



Block-Read "B-R: " ; channel ; drive; track; block 

Block-Write "B-W: "; channel ; drive; track; block 

Block-Allocate "B-A: "; drive; track; block 

Block-Free "B-F: ";drive; track;block 

Buffer-Pointer "B-P: "; channel; position 
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These are the most important commands for direct access. 
Their common trait is that they all access the disk 
controller directly, offering possibilities not available 
otherwise. Many of the more useful possibilities can be 
found in The Anatomy of 1541 Disk Drive. 
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8.6 Rescuing an improperly closed file 

Admittedly it does not happen often, but when it does, 
it is very annoying and results in a loss of work. 

What is "it"? 

By "it" we mean something like the following: 

With much effort you have organized your record 
collection and would like to store the titles on a disk so 
that you can find them quickly. The usual method simply 
involves saving the record titles and artists' or composers' 
names in one or more sequential files. You are now in the 
course of entering the desired data via the keyboard and are 
almost done (you have already entered 500 titles) when your 
spouse trip over the power cord. "Doesn't matter," you 
think, "The data's safe on the diskette." 

You return to your program, change the OPEN command for 
your sequential file to APPEND (A instead of W) and try to 
continue, but the red light on the disk begins to flash, 
indicating an error! Puzzled, and a bit worried, you read 
the error channel and find the message "WRITE FILE OPEN". 
When you list the directory, you find an "*" in front of the 
type designation. This means that the file is still open for 
writing since no CLOSE followed the write accesses. The same 
thing happens when you remove a disk from the drive without 
first closing all of the write files. 

The usual methods offer you no chance of recovering 
your data. Too bad about the record collection. 

Since this happened to us often enough, we have 
developed a small program which makes it possible to make 
the destroyed files at least readable again. Once again, we 
have provided a description of the program operations and 
the variables used. 
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Variables: 

E Position of the filename within the directory sector 

S Sector number for the direct commands 

T Track number for the direct commands 

TY File type (derived from T$) 

X Index variable for isolating the file name 

A$ Interim variable for constructing S$ 

F$ Filename 

S$ Complete sector 

T$ File type 

X$ 16-character expanded filename read from directory, 
later the actual filename 

Xl$ Duplicate of X$ 



Program operation: 

70 Open a data channel for the direct access 
80 Open the command channel 

100 Input filename 

110 Assignment of track and sector numbers. For the 
VIC-1541 and the CBM 4040, the directory begins on 
track 18, sector 1. For the CBM 8050 disk drive, it 
is stored on track 39. If you are using this drive, 
this line must be changed accordingly. 

120 In this line, the disk sector specified by T and S 
is read from the diskette (drive 0) into the 
internal buffer on the disk drive. 

150 The buffer contents are transferred to A$. 

160 A sector can contain up to eight directory entries. 
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These are first searched for the desired filename 

before the next sector is read in. 
170 Here the filename is isolated from the entry and 

placed in X$. 
200-210 The end criterium for the actual length of the 

filename is CHR$(160) (shifted space). Here the 

filename is removed and placed back into X$. 
220-230 If the filename is found, execution branches to 

line 300, otherwise the other entries in the sector 

are searched. 
240-260 At the beginning of each sector stands the track 

and sector addresses of the following block, or if 

there is none (end of the directory), the track 

number is zero. 
300-310 The file type (the byte from which the file type 

for the screen is generated) is isolated and placed 

in T$ while the numeric value is placed in T. 
320 T=0 marks an empty directory entry. 
360 The bit which is set here is the cause of the whole 

problem. This bit is used to indicate if a file was 

opened for writing or not. The asterisk on the 

screen is derived from this bit. 
370 The entire sector, including marker for a closed 

file, is reconstructed. 
390-410 Now the buffer pointer in the drive is reset, the 

sector is placed into the buffer, and the buffer 

contents are written back to the disk. 
420-490 These lines serve to remind you how to proceed with 

rescuing the file. 
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This program is quite simple to use: 

Load the program, insert the disk containing the file you 

wish to rescue into the drive (it must be drive for a 

double drive), run the program, and enter the name of the 

file. 

A limitation: 

This procedure does not work with relative files because 

they are stored differently on the disk. A relative file can 

only be reconstructed with a great deal of work. 

Once you have rescued your file, you should read it record 
by record and rewrite the data to a new file. This is 
necessary because although the file has been recovered, the 
logical end of the file is no longer recognized. 
At this point you should stop the procedure and be sure to 
close the new file and then erase the defective file. 

We hope that you will find this program useful but also that 
you do not have to use it often. 
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10 PRINT CHR*(147>; 
20 PRINT CHR*<5> ; 
70 OPEN 2,8,2, "#": 

REM DIRECT ACCESS 
80 OPEN 15,8, 15: 

REM COMMAND CHANNEL 
90 PRINT : 

PRINT 
100 INPUT "FILENAME ";F*: 

PRINT : 

PRINT 
110 T=18: 

s=i: 

REM 1541 DIRECTORY ** T=39 FOR CBM 8050 
120 PRINT#15,"U1 2 0"T;S: 
REM READ 

130 s*="": 

REM VARIABLE FOR READ SECTOR 
150 FOR 1=1 TO 255: 
GET #2, A*: 

S*=S*+LEFT* < A*+CHR* <0) , 1 ) : 
NEXT 
160 FOR 1=0 TO 7: 

REM 8 ENTRIES 
170 X*=MID*<S*, 1*32+6,16): 

X1*=X* 
180 REM ISOLATE FILENAME 
190 X=l 

200 IF MID*(X*,X, 1)OCHR*<160) 
THEN X=X+l: 
IF X<17 
THEN 200 
210 X*=LEFT*<X*,X-1> 
220 IF X*=F* 

THEN E=l: 
GOTO 300 
230 NEXT I 
240 T=ASC(S*>: 

S=ASC(MID*(S*,2, 1) i 
250 REM READ NEXT SECTOR 
260 IF TOO 

THEN 120 
270 REM END 

280 PRINT "FILE "Ft" NOT ON THIS DISKETTE" 
290 CLOSE 2: 

CLOSE 15: 
END 
300 1 *=M1D* (S*. E*32+3> 
310 TY=ASC(T«) AND 15 
320 IF TY=0 

THEM NEXT I: 
B07 24U 
330 IF TY<>4 
THEN 340 
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335 PRINT "RELATIVE FILES CANNOT BE RESCUED 

337 BOTfJ 290 

340 TY*="DELSEQPRGUSRREL" 

350 PRINT "FILE "XI*" "MID* <TY*, TY*3+1 , 3) : 

PRINT 

360 T*=CHR*(ASC<T«) OR 128) 

370 S*=LEFT* < S* , E*32+2 ) +T*+M I D* < S* , E*32+4 ) 

380 REM * ERASE AND REWRITE 

390 PRINT#15, "B-P 2 0"T5S 

400 PRINT#2,S*S 

410 PRINT#15. "U2 2 0"TjS 

420 CLOSE 2: 

CLOSE 15 

425 PRINT "FILE DATA CAN 

430 PRINT "AFTER COPYING 

440 PRINT "THE FOLLOWING 

450 PRINT "BE GIVEN:": 

PRINT 

460 PRINT "OPEN 15,8,15" 

470 PRINT CHR*(17) "PRINT#15, "CHR*<34> 

480 PRINT CHR*(17> "PR1'NT#15, "CHR*(34) 

490 PRINT CHR*( 17) "CLOSE 15" 

500 END 



NOW BE READ. " 
THE VALID DATA, " 
COMMANDS SHOULD" 



'S:"F*CHR*<34> 
'V0"CHR*<34> 
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Chapter 9 : POKE's and other useful routines 



9.1 Using the cassette buffer as program storage 

If one wants to use a small machine language program in 
conjunction with BASIC, the question always arises 
concerning where such programs should be placed in memory. A 
section of memory must be chosen which will not be 
overwritten by BASIC programs or variables. From this 
viewpoint there are two possibilities. 

The first possibility is that a section of memory can 
be chosen which BASIC does not use at all, and the second is 
that the start or end of the BASIC program storage area can 
be changed. Three areas are unused by BASIC. The first is 
the cassette buffer. It lies from address 828 to 1019 ($033C 
to $03FB). This area is used by a program only when data is 
saved to or read from the cassette recorder. It works very 
well for machine language programs up to 192 bytes long. If 
sprite 13, 14, or 15 is used, the cassette buffer will be 
used to store these. Another small area is from address 704 
to 767 ($02C0 to $02FF) which is used for sprite 11 (64 
bytes). A large 4K-byte area above the BASIC interpreter is 
located fro 49152 to 53247 ($C000 to $CFFF), which should 
suffice for even the longest machine language programs. 

If a few memory locations are needed, there are 16 
bytes "behind" the screen memory which can be used. The 64 
has IK = 1024 bytes of memory for the screen, but only 40*25 
= 1000 are used for the video RAM. 24 bytes are then left 
over, 8 of which are used as pointers for the sprites. 
Sixteen bytes remain which you can use for your own 
purposes. These are located from 2024 to 2039 (hexadecimal 
$07E9 to $07F8). 
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If these areas are not enough or you need more data 
storage area, the BASIC program storage area can be 
decreased and the extra space used by machine language 
programs. You can lower the end of the BASIC program area 
(the usual method) or raise the start. Let's take a closer 
look at how this is done. 

The BASIC interpreter has two pointers which point to 
the start and end of the BASIC storage. The start-of-BASIC 
pointer is located at 43/44 ($2B/$2C), the end at 55/56 
($37/$38). These values can be read with 

PRINT PEKK(43)+256*PBEK(44) 
PRINT PEEK(55)+256*PEBK(56) 

The values are normally 2049 and 40960. To make room for a 
1000 byte machine language program, we can lower the end of 
BASIC by 1000, leaving it at 39960. We can set the new value 
with POKE statements. 

HB = INT (39960/256) : LB = 39960 - HB*256 
POKE 55, LB : POKE 56, HB : CLR 

The CLR command is necessary to ensure that you do not get 
false variable values. To move the start to 3049, the 
following commands are necessary: 

HB = INT (3049/256) : LB = 3049 - HB*256 

POKE 43, LB : POKE 44, HB : POKE 3049-1,0 : NEW 

Here the NEW command is necessary to properly reset the 
other BASIC pointers. 
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9.2 Sorting strings 

One task which every programmer encounters sooner or 
later is the sorting of data. These could be names, 
addresses., or rows of numbers. There are various known 
algorithms used for sorting, but all of them are time 
consuming when large amounts of data have to be sorted. The 
simplest procedures are also generally the slowest. If one 
needs a faster sort method, one must formulate the algorithm 
not in BASIC but in machine' language. For such tasks, 
solutions in machine language are about 100 times faster 
than a comparable BASIC routine. The following program is 
designed to sort strings. In order to keep it short, the 
following conditions must be kept in mind: 

1. The field to be sorted must be the first dimensioned with 
a DIM statement. 

2. An empty string must follow the last array element to be 
sorted. 

Point 2 has the advantage that even a partially filled 
array can be sorted without all of the empty strings being 
placed at the start of the array after sorting. 

With these arrangements, the program is so short that 
we can store it in the cassette buffer. It is called simply 
with SYS 828. The program checks to make sure that the array 
is a one-dimensional string array. If this is not the case, 
the machine language program is immediately ended. 
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0001 


033C 






0002 


033C 


AO 


00 


0003 


033E 


Bl 


2F 


0004 


0340 


30 


OD 


0005 


0342 


CB 




0006 


0343 


Bl 


2F 


R 








0007 


0345 


10 


OS 


0008 


0347 


AO 


04 


0009 


0349 


Bl 


2F 


0010 


034B 


C9 


01 


0011 


034D 


FO 


01 


00 1 2 


034F 


60 




0013 


0350 


18 




0014 


0351 


AS 


2F 


0015 


0353 


69 


07 


0016 


0355 


B5 


6E 


0017 


0357 


A5 


30 


00 IB 


0359 


69 


00 


0019 


035B 


85 


6F 


0020 


035D 


AO 


00 


0021 


035F 


Bl 


6E 


0022 


0361 


FO 


EC 



DONE 

0023 0363 85 

0024 0365 CB 



22 



0025 


0366 


Bl 


6E 


0026 


0368 


99 


22 00 


0027 


036B 






002B 


036B 


CO 


02 


0029 


036D 


DO 


F6 


0030 


036F 


A5 


6E 


0031 


0371 


85 


71 


0032 


0373 


A5 


6F 


0033 


0375 


85 


72 


0034 


0377 


IB 




0035 


0378 


A5 


71 


0036 


037A 


69 


03 


0037 


037C 


85 


71 


003B 


037E 


90 


02 


0039 


0380 


E6 


72 


0040 


0382 


AO 


00 


0041 


0384 


Bl 


71 


0042 


03B6 


FO 


3D 


0043 


0388 


85 


4D 


TH 








0044 


038A 


C5 


oo 


ENBTH 






0045 


038C 


90 


02 


0046 


038E 


A5 


On 


0047 


0390 


85 


55 


TH 








0048 


0392 


CB 




0049 


0393 


Bl 


71 



LI 
L2 



0R8 828 

LDY #0 

LDA <*2F),Y 

BMI LI 

INY 

LDA (*2F),Y 

BPL LI 
LDY #4 
LDA (*2F),Y 
CMP #1 
BEQ L2 
RTS 
CLC 

LDA *2F 
ADC #7 
STA S6E 
LDA *30 
ADC #0 
STA *6F 
LDY #0 
LDA <*6E),Y 
BEQ LI 



5 FIRST LETTER 
: SECOND LETTE 

; DIMENSION 



5 ARRAY START 
; PLUS 7 



I LENGTH ZERO, 



STA *22 
L4 INY 

LDA (*6E),Y 

BYT *99,*22,*00 
5 LDA *22,0 5 POINTER TO STRING 

CPY #2 



L6 



BNE 


L4 


LDA 


*6E 


STA 


*71 


LDA 


*6F 


STA 


*72 


CLC 




LDA 


*71 


ADC 


#3 


STA 


S71 


BCC 


L6 


INC 


S72 


LDY 


#0 


LDA 


<*71) 


BEQ 


L13 


STA 


*4D 



SADD THREE 



L7 

LB 



CMP $22 

BCC L7 
LDA *22 
STA *55 

INY 

LDA (*71),Y 



! COMPARE LENG 



JWITH FIRST L 



I COMPARE LENG 
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0050 0395 


99 


4D 00 




BYT 


*99,*4D,*00 


0051 0398 






; STA 


*4D,Y 


0052 0398 


CO 


02 




CPY 


#2 


0053 039A 


DO 


F6 




BNE 


L8 


0054 039C 


AO 


00 




LDY 


#0 


0055 039E 


Bl 


23 


L9 


LDA 


<*23),Y 


RE 












0056 03A0 


Dl 


4E 




CMP 


<*4E) ,Y 


0057 03A2 


FO 


04 




BEQ 


L10 


CONTINUE 












0058 03A4 


BO 


OB 




BCS 


Lll 


EXCHANBE 












0059 03A6 


90 


CF 




BCC 


L5 


NEXT BTRINB 










0060 03A8 


C8 




L10 


I NY 




0061 03A9 


C4 


55 




CPY 


*55 


RS EQUAL? 












0062 03AB 


DO 


Fl 




BNE 


L9 


0063 03AD 


C4 


22 




CPY 


$22 


L0N6ER 












0064 03AF 


BO 


C6 




BCS 


L5 


0065 03B1 


AO 


02 


Lll 


LDY 


#2 


0066 03B3 


Bl 


6E 


L12 


LDA 


(*6E> ,Y 


POINTERS 












0067 03B5 


AA 






TAX 




0068 03B6 


Bl 


71 




LDA 


<*71),Y 


0069 03B8 


91 


6E 




STA 


<*6E) ,Y 


0070 03BA 


99 


22 00 




BYT 


*99,*22,*00 


007 1 03BD 






5 STA 


*22,Y 


0072 03BD 


BA 






TXA 




0073 03BE 


91 


71 




STA 


(*71),Y 


0074 O3C0 


B8 






DEY 




0075 03C1 


10 


FO 




BPL 


L12 


0076 03C3 


30 


B2 




BMI 


L5 


0077 03C5 


18 




LIS 


CLC 




EXT STRING 










0078 03C6 


A5 


6E 




LDA 


*6E 


0079 03C8 


69 


03 




ADC 


#3 


0080 03CA 


85 


6E 




STA 


*6E 


0081 03CC 


90 


8F 




BCC 


L3 


0082 03CE 


E6 


6F 




INC 


*6F 


0083 03D0 


DO 


8B 




BNE 


L3 



S STRING COMPA 

5 EQUAL, THEN 
5 GREATER THAN 
5 SMALLER THEN 

; ALL CHARACTE 

5 FIRST STRING 
5 NO THEN OK 
5 SWAP STRING 



(POINTER TO N 



ASSEMBLY COMPLETE. 
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1 00 


FOR I 


= 8 


110 


READ 


X : 


120 


DATA 


160, 


130 


DATA 


4, 


140 


DATA 


7, 


150 


DATA 


110, 


160 


DATA 


2 


170 


DATA 


165^ 


180 


DATA 


177, 


190 


DATA 


133, 


200 


DATA 


160, 


210 


DATA 


200, 


220 


DATA 


110, 


230 


DATA 


136, 


240 


DATA 


144, 


250 


IF S 




260 


PRINT "OK 



28 TO 977 
POKE I,X : S=S+X 
0, 177, 47, 48, 
177, 47,201, 1, 
133,110,165, 48, 
240,236,133, 34, 
208,246, 165, 110, 
113,105, 3,133, 
113,240, 61,133, 

85,200, 177, 113, 

0,177, 35,209, 

196, 85,208,241, 

170, 177, 113, 145, 

16,240, 48,178, 
143,230, 111,208, 
7663 THEN PRINT 



NEXT 

13,200, 
240, 1 
105, 0, 
200, 177 
133, 113 
113, 144 

77, 197 
153, 77 

78,240 
196, 34 
110, 153, 

24, 165, 
139 
"ERROR I 



177, 
96, 
133, 
110, 
165, 
2 

34' 

0, 

4, 

176, 

34, 

110, 



47, 
24, 
111, 
153, 
111, 
230, 
144, 
192, 
176, 
198, 
0, 
105, 



16, 
165, 
160, 

34, 
133, 
114, 

*? 

2, 

11, 

160, 

138, 

3. 



8, 
47, 

0, 

0, 
114, 
160, 
165, 
208, 
144, 

2, 
145, 
133, 



160 
105 
177 
192 

24 


34 
246 
207 
177 
113 
110 



N DATA ! ! " : END 



We can demonstrate the speed of the machine language program 
with a small test program. 

The program creates a given number of strings made up 
of a given maximum number of random letters, displays these 
on the screen, sorts them, and then prints them again, 
together with the time required for the sort. 



100 INPUT "NUMBER, LENGTH" ;N,L 

110 DIM A$(N) : N=N-1 

120 FOR 1=0 TO N 

130 FOR J=l TO RND(1)*1 

140 A$(I) = A$(I)+CHR$(RND(l)*26+65) 

150 NEXT : NEXT 

160 FOR 1=0 TO N : PRINT A$(I) : NEXT 

170 T=TI : SYS 828 : T=TI-T 

180 PRINT "SORT TIME =" T/60 "SECONDS" 

190 FOR 1=0 to N : PRINT A$(I) : NEXT 
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Run this program with various lengths and numbers of 
strings and make note of the sort times. 100 strings can be 
sorted in less than one second. A comparable BASIC program 
would require minutes. 

If you use this program in your programs, remember that 
the last element in the array must be an empty string and 
that the array must be the first dimensioned. 
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9.3 Minimum and maximum of numeric fields 

When performing calculations with dimensioned 
variables, one often needs to know the smallest or largest 
value in the field. This calculation can of course be 
performed by a small BASIC loop, but this takes relatively 
long for large fields. This is a good case for using machine 
language. The program uses the same algorithm as the 
corresponding BASIC variant. 

100 DIM A(N) 

200 GOSUB 1000 

1000 MIN = A(0) 

1010 FOR 1=1 TO N 

1020 IF A(I) < MIN THEN MIN = A(I) 

1030 NEXT 

1040 RETURN 

A field A is dimensioned from to N. By calling the 

subroutine at line 1000, the minimum is calculated and 

returned in the variable MIN. If the maximum is desired, one 
need only replace line 1020 with 

1020 IF A(I) > MAX THEN MAX = A(I) 

an4 line 1000 with 

1000 MAX = A(0) 

The machine language program has another advantage over its 
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BASIC counterpart in that it is not restricted to a single 
variable (our example above is limited to the variable A). 
The program will work with real numbers as well as integer 
arrays and resides at address $C800. 



000 1 C800 
TION 

0002 C800 
EGER VARIABLE 

0003 C800 

0004 C800 
RRAY TABLE 

0005 C800 

ND OF ARRAYS 

0006 C800 
E 

0007 C800 

0008 C800 

IRST ARRAY ELEMENT 

0009 C800 
S IN FAC 

0010 C800 
TANTB WITH FAC 

0011 C800 

0012 C800 
INTEBER VARIABLE 

0013 C800 
AC 

0014 C800 

0015 C800 A6 2F 

0016 C802 A5 30 
TART OF ARRAY TABLE 

0017 C804 86 5F 

0018 C806 85 60 
TER 

0019 C808 C5 32 

0020 C80A DO 04 

0021 C80C E4 31 
TABLE? 

0022 C80E FO ID 

0023 C810 AO 00 

0024 C812 Bl 5F 
OF THE NAME 

0025 C814 C8 

0026 C815 C5 45 
DESIRED NAME 

0027 C817 DO 06 

0028 C819 A5 46 

0029 C81B Dl 5F 
ND CHARACTER 



INTFLG 


EQU 


14 


STORE 


EQU 


*26 


ARRTAB 


EQU 


*2F 


ARREND 


EQU 


*31 


VARNAM 


EQU 


*45 


TEMP 


EQU 


S5F 


SETARR 


EQU 


*B196 


MEMFAC 


EQU 


*BBA2 


CMPARE 


EQU 


*BC5B 


ERROUT 


EQU 


*A445 


INT 


EQU 


*14 


INTFLT 


EQU 


*B391 




ORB 


*C800 


MINMAX 


LDX 


ARRTAB 




LDA 


ARRTAB+1 


L3 


STX 


TEMP 




STA 


TEMP+1 




CMP 


ARREND+1 




BNE 


LI 




CPX 


ARREND 




BEQ 


NOTFND 


LI 


LDY 


#0 




LDA 


(TEMP),Y 




I NY 






CMP 


VARNAM 




BNE 


L2 




LDA 


VARNAM+1 




CMP 


(TEMP) ,Y 



iiM IN/MAX FUNC 
5 FLAG FOR INT 

5 POINTER TO A 
5 POINTER TO E 
5 VARIABLE NAM 

5 POINTER TO F 
;GET CONSTANT 
5 COMPARE CONS 

5 STORAGE FOR 
5 INTEGER TO F 

5 POINTER TO S 
; RUNNING POIN 

SEND OF ARRAY 

; FIRST LETTER 
5 COMPARE WITH 

5 COMPARE SECO 
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0030 C81D F0 17 

0031 C81F C8 

0032 C820 Bl 5F 

0033 C822 18 

0034 C823 65 5F 
OR NEXT ARRAY 

0035 C825 AA 

0036 C826 CB 

0037 C827 Bl 5F 

0038 C829 65 60 

0039 C82B 90 D7 

0040 C82D A9 BB 
RROR MESSAGE 

0041 C82F 85 22 

0042 C831 A9 C8 

0043 C833 4C 45 A4 
MESSABE 

0044 C836 C8 

0045 C837 18 

0046 C838 Bl 5F 

0047 C83A 65 5F 

0048 C83C 85 26 

0049 C83E CB 

0050 CB3F Bl 5F 

0051 C841 65 60 

0052 C843 85 27 
ND OF THE ARRAY 

0053 C845 C8 

0054 C846 Bl 5F 

0055 C84S 20 96 Bl 
IRST ARRAY ELEMENT 

0056 C84B 85 5F 

0057 C84D 84 60 

0058 C84F 24 OE 

0059 CBS 1 30 24 

0060 C853 10 09 

0061 C855 20 5B BC 
Y ELEMENTS 

0062 C858 10 07 

0063 C85A A5 5F 

0064 C85C A4 60 

0065 CB5E 20 A2 BB 
LEMENT AS MIN/MAX 

0066 C861 18 

0067 C862 A5 5F 

0068 C864 69 05 
EXT ELEMENT 

0069 C866 85 5F 

0070 CB68 90 02 

0071 C86A E6 60 

0072 C86C A4 60 





BEQ 


FOUND 


; FOUND? 


L2 


I NY 








LDA 


<TEMP),Y 






CLC 








ADC 


TEMP 


;ADD OFFSET F 




TAX 








I NY 








LDA 


(TEMP) ,Y 






ADC 


TEMP+1 






BCC 


L3 




NOTFND 


LDA 


4KERRMSG 


5 POINTER TO E 




STA 


*22 






LDA 


#>ERRMSB 






J MP 


ERROUT 


; OUTPUT ERROR 


FOUND 


I NY 
CLC 








LDA 


(TEMP),Y 






ADC 


TEMP 






STA 


STORE 






I NY 








LDA 


(TEMP),Y 






ADC 


TEMP+1 






STA 


STORE+1 


; POINTER TO E 




I NY 








LDA 


(TEMP),Y 


5 DIMENSION 




JSR 


SETARR 


; POINTER TO F 




STA 


TEMP 






STY 


TEMP+1 


5 SAVE POINTER 




BIT 


INTFLB 


5TEST TYPE 




BMI 


INTGER 






BPL 


LP1 




L5 


JSR 


CMPARE 


5 COMPARE ARRA 




BPL 


LOOP 






LDA 


TEMP 






LDY 


TEMP+1 




LP1 


JSR 


MEMFAC 


5 SAVE ARRAY E 


LOOP 


CLC 








LDA 


TEMP 






ADC 


#5 


5 POINTER TO N 




STA 


TEMP 






BCC 


L4 






INC 


TEMP+1 




L4 


LDY 


TEMP+1 
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0073 C86E 


C5 


26 




CMP 


STORE 


RRAY 












0074 C870 


DO 


E3 




BNE 


L5 


0075 C872 


C4 


27 




CPY 


STORE+1 


0076 C874 


DO 


DF 




BNE 


L5 


0077 C876 


60 






RTS 




0078 C877 
Y 

0079 C879 


AO 


00 


INT6ER 


LDY 


#0 


Bl 


5F 




LDA 


<TEMP),Y 


0080 CB7B 


AA 






TAX 




0081 C87C 


CB 






I NY 




0082 C87D 


Bl 


5F 




LDA 


(TEMP),Y 


0083 C87F 


85 


15 




STA 


INT+1 


LUE IN INT 










0084 C881 


86 


14 




BTX 


INT 


0085 C8B3 


IB 




L12 


CLC 




0086 C884 


A5 


5F 




LDA 


TEMP 


0087 C886 


69 


02 




ADC 


#2 


EXT ELEMENT 










0088 C888 


85 


5F 




STA 


TEMP 


0089 C88A 


90 


02 




BCC 


L10 


0090 C88C 


E6 


60 




INC 


TEMP+1 


0091 C88E 


C5 


26 


L10 


CMP 


STORE 


0092 C890 


DO 


OD 




BNE 


Lll 


0093 C892 


AS 


60 




LDA 


TEMP+1 


0094 C894 


C5 


27 




CMP 


STORE+1 


0095 CB96 


DO 


07 




BNE 


Lll 


0096 C898 


A5 


14 




LDA 


INT 


VALUE 












0097 C89A 


A4 


15 




LDY 


INT+1 


0098 C89C 


4C 


91 B3 




JMP 


INTFLT 


AC 












0099 C89F 


AO 


00 


Lll 


LDY 


#0 


0100 C8A1 


Bl 


5F 




LDA 


(TEMP),Y 


0101 C8A3 


C5 


14 




CMP 


INT 


BYTE 












0102 C8A5 


DO 


07 




BNE 


L14 


0103 C8A7 


CB 






I NY 




0104 C8A8 


Bl 


5F 




LDA 


(TEMP) ,Y 


0105 C8AA 


E5 


15 




SBC 


INT+1 


BYTE 












0106 C8AC 


FO 


D5 




BEQ 


L12 


0107 C8AE 


A9 


01 


L14 


LDA 


#1 


ATER 












0108 C8B0 


90 


02 




BCC 


L13 


0109 C8B2 


A9 


FF 




LDA 


#*FF 


LLER 












0110 C8B4 


30 


CI 


L13 


BMI 


INT6ER 


0111 C8B6 


10 


CB 




BPL 


L12 


0112 C8B8 


41 
41 
4E 
20 
55 


52 52 
59 20 
4F 54 
46 4F 
4E 


ERRMSG 


ASC 


'ARRAY NOT 
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;END OF THE A 



5 INTEBER ARRA 



5 BET FIRST VA 



; POINTER TO N 



;END REACHED? 
5 BET INTEGER 

5 CONVERT TO F 
5 COMPARE HIGH 

; COMPARE LOW 
5 FLAG FOR GRE 
SFLAG FOR SMA 



FOUN' 



0113 C8C6 C4 



BYT *C4 
- 255 - 
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100 FOR I = 51200 TO 51398 
110 READ X : POKE I , X : S=S+X : NEXT 

120 DATA 166, 47,165, 48,134, 95,133, 96,197, 50,208, 4 
130 DATA 228, 49,240, 29,160, 0,177, 95,200,197, 69,208 
140 DATA 6,165, 70,209, 95,240, 23,200,177, 95, 24,101 
150 DATA 95,170,200,177, 95,101, 96,144,215,169,184,133 
160 DATA 34,169,200, 76, 69,164,200, 24,177, 95,101, 95 
170 DATA 133, 38,200,177, 95,101, 96,133, 39,200,177, 95 
180 DATA 32,150,177,133, 95,132, 96, 36, 14, 48, 36, 16 
190 DATA 9, 32, 91,188, 16, 7,165, 95,164, 96, 32,162 
200 DATA 187, 24,165, 95,105, 5,133, 95,144, 2,230, 96 
210 DATA 164, 96,197, 38,208,227,196, 39,208,223, 96,160 
220 DATA 0,177, 95,170,200,177, 95,133, 21,134, 20, 24 
230 DATA 165, 95,105, 2,133, 95,144, 2,230, 96,197, 38 
240 DATA 208, 13,165, 96,197, 39,20B, 7,165, 20,164, 21 
250 DATA 76,145,179,160, 0,177, 95,197, 20,208, 7,200 
260 DATA 177, 95,229, 21,240,213,169, 1,144, 2,169,255 
270 DATA 48,193, 16,203, 65, 82, 82, 65, 89, 32, 78, 79 
280 DATA 84, 32, 70, 79, 85, 78,196 

290 IF S <> 22908 THEN PRINT "ERROR IN DATA!!" : END 
300 PRINT "OK" 



The version printed here calculates the maximum of an 
array. If you want to calculate the minimum, you must 
reverse the branch logic after the comparisons. The contents 
of the following addresses must be changed: 
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C858 from $10 to $30 
C8B4 from $30 to $10 
C8B6 from $10 to $30 

To use the function, you must first set the address for the 
USR function: 

POKE 785,0 : POKE 786,200 

Now you can call the function with PRINT OSR(A) in 
which A is the name of the array. The USR function can be 
called as any other, for example X = USR( A*) *SIN(3) . 

The following small program will serve to demonstrate the 
function. 

100 POKE 785,0 : POKE 786,200 

110 INPUT "ARRAY SIZE " j N 

120 DIM A(N) 

130 FOR 1=0 TO N 

140 A(I) = RND (1)*1000 

150 PRINT A(I) 

160 NEXT 

170 PRINT 

180 PRINT USR(A) 

The switch from MAX to MIN functions can be made by changing 
the three previously-mentioned values with POKE statements: 

POKE 51288,48 (or back to 16) 
POKE 51380,16 (or back to 48) 
POKE 51382,48 (or back to 16) 
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9.4 DUMP command for variable output 



The following machine language program is very useful 
for debugging BASIC programs. It prints out all of the BASIC 
variables together with their values. The program is stored 
in the cassette buffer and is called with SYS 828. 

; CASSETTE BUF 



5 POINTER TO S 

5 SAVE 

5 COMPARE WITH 



0001 


033C 








FER 










0002 


033C A5 


2D 






0003 


033E A4 


2E 






TART 


OF VARIABLES 




0004 


0340 85 


14 




LO 


0005 


0342 84 


15 






0006 


0344 C4 


30 






END 


OF VARIABLES 




0007 


0346 DO 


02 






0008 


0348 C5 


2F 






0009 


034A BO 


18 




LI 


DONE 








0010 


034C 69 


02 






ARIABLE VALUE 






0011 


034E 90 


01 






00 1 2 


0350 C8 








00 1 3 


0351. 85 


22 




L2 


0014 


0353 84 


23 






00 1 5 


0355 20 


82 


03 




00 1 6 


0358 20 


B6 


03 




0017 


035B 8A 








0018 


035C 1 


07 






0019 


035E 20 


BF 


03 




ER VARIABLE 








0020 


0361 4C 


71 


03 




002 1 


0364 60 






L3 


0022 


0365 98 






L4 


0023 


0366 30 


06 






0024 


0368 20 


CF 


03 




ING-POINT NUMBER 




0025 


036B 4C 


71 


03 




0026 


036E 20 


D8 


03 


L5 


G VARIABLE 








0027 


0371 A9 


OD 




L6 



URN 

0028 0373 

0029 0376 

0030 0378 A4 

0031 037A 18 



20 D2 
A5 14 

15 



FF 



ORB 


828 


LDA 


*2D 


LDY 


*2E 


STA 


*14 


STY 


415 


CPY 


*30 


BNE 


LI 


CMP 


*2F 


BCS 


L3 


ADC 


#2 


BCC 


L2 


I NY 




STA 


*22 


STY 


*23 


JSR 


L7 


JSR 


L12 


TXA 




BPL 


L4 


JSR 


L13 


J MP 


L6 


RTS 




TYA 




BMI 


L5 


JSR 


L14 


J MP 


L6 


JSR 


L16 


LDA 


#13 


JSR 


*FFD2 


LDA 


$14 


LDY 


$15 


CLC 
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;T0 END, THEN 
; POINTER TO V 



(OUTPUT NAME 
i OUTPUT '=' 



; OUTPUT INTEG 
;T0 MAIN LOOP 

; OUTPUT FLOAT 

5 OUTPUT STRIN 
; CARRIAGE RET 
; OUTPUT 



0032 


037B 


69 


07 


XT VARIABLE 




0033 


037D 


90 


CI 


0034 


037F 


CB 




0035 


0380 


BO 


BE 


0036 


0382 


AO 


00 


0037 


0384 


Bl 


14 


OF NAME 






0038 


0386 


AA 




0039 


0387 


29 


7F 


0040 


0389 


20 


D2 


004 1 


038C 


CB 




0042 


038D 


Bl 


14 


CTER 








0043 


038F 


A8 




0044 


0390 


29 


7F 


0045 


0392 


FO 


03 


0046 


0394 


20 


D2 



FF 



FF 



0047 0397 8A 

0048 0398 10 11 

0049 039A 98 

0050 039B 30 OA 



0051 


039D 


A9 


21 


TPUT 


? i > 






0052 


039F 


20 


D2 FF 


0053 


03A2 


68 




0054 


03A3 


68 




0055 


03A4 


4C 


71 03 


MAIN LOOP 




0056 


03A7 


A9 


25 


ABLE 








0057 


03A9 


DO 


4E 


0058 


03AB 


9B 




0059 


03AC 


10 


04 


0060 


03AE 


A9 


24 


BLE 








006 1 


03B0 


DO 


47 


0062 


03B2 


60 




0063 


03B3 


20 


D2 FF 


CTER 








0064 


03B6 


A9 


20 


0065 


03B8 


20 


D2 FF 


0066 


03BB 


A9 


3D 


0067 


03BD 


DO 


3A 


0068 


03BF 


AO 


00 


ABLE 








0069 


03C1 


Bl 


22 


0070 


03C3 


AA 




0071 


03C4 


CB 




0072 


03C5 


Bl 


22 


0073 


03C7 


AS 




0074 


03C8 


8A 




0075 


03C9 


20 


95 B3 


LOATING POINT 



L7 



L8 



L9 



L10 



Lll 



Li; 



li: 



ADC #7 

BCC LO 

I NY 

BCS LO 

LDY #0 

LDA <*14>,Y 

TAX 

AND #*7F 

JBR *FFD2 

I NY 

LDA ($14), Y 

TAY 

AND #*7F 

BEQ L8 

JBR *FFD2 

TXA 

BPL L10 

TYA 

BMI L9 

LDA #' ! ' 

JSR *FFD2 

PLA 

PLA 

J MP L6 

LDA #'•/.' 

BNE L19 
TYA 

BPL Lll 
LDA #'*' 

BNE L19 

RTS 

JSR *FFD2 

LDA #*20 
JSR *FFD2 
LDA #'=' 
BNE L19 
LDY #0 

LDA (*22),Y 

TAX 

INY 

LDA (*22),Y 

TAY 

TXA 

JSR *B395 
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5 ADD 7 FOR NE 

;T0 MAIN LOOP 
; FIRST LETTER 

; OUTPUT 

; SECOND CHARA 

5 OUTPUT 
STEST TYPE 

5 FUNCTION, OU 

5 JUMP BACK TO 
S INTEGER VARI 

5 STRING VARIA 

; OUTPUT CHARA 

5 OUTPUT BLANK 

5 OUTPUT 

5 INTEGER VARI 

SLOW BYTE 

5 HIGH BYTE 

5 CONVERT TO F 
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0076 03CC 


4C 


D2 


03 


0077 03CF 


20 


A6 


BB 


-POINT VARIABLE 




0078 03D2 


20 


DD 


BD 


SCII STRING 






0079 03D5 


4C 


IE 


AB 


0080 03DB 


20 


F7 


03 


G, QUOTE 








0081 03DB 


AO 


02 




0082 03DD 


Bl 


22 




0083 03DF 


85 


25 




0084 03E1 


88 






0085 03E2 


Bl 


22 




0086 03E4 


85 


24 




0087 03E6 


88 






0088 03E7 


Bl 


22 




0089 03E9 


85 


26 




0090 03EB 


FO 


OA 




0091 03ED 


Bl 


24 




CTERS 








0092 03EF 


20 


D2 


FF 


0093 03F2 


C8 






0094 03F3 


C4 


26 




0095 03F5 


DO 


F6 




0096 03F7 


A9 


22 





0097 03F9 4C D2 FF 





JMP 


L15 




L14 


JSR 


*BBA6 




L15 


JSR 


*BDDD 






JMP 


*AB1E 




L16 


JSR 


LIB 






LDY 


#2 






LDA 


(*22) , 


Y 




STA 


*25 






DEY 








LDA 


<*22), 


Y 




STA 


*24 






DEY 








LDA 


<*22) , 


Y 




STA 


*26 






BEQ 


LIS 




L17 


LDA 


(*24> , 


Y 




JSR 


*FFD2 






INY 








CPY 


*26 






BNE 


L17 




LIS 


LDA 


#*22 




L19 


JMP 


*FFD2 





;and output 
; get floating 

? convert to a 

sand output 
5 output strin 



5 ADDRESS HIGH 

5 ADDRESS LOW 

", LENGTH 

5 OUTPUT CHARA 

5 OF STRING 

i STRING DONE? 

; QUOTE 
5 OUTPUT 



100 FOR I = B28 TO 1019 
110 READ X : POKE I,X : S=S+X : NEXT 
120 DATA 165, 45,164, 46,133, 20,132, 
130 DATA 197, 47,176, 24,105, 2,144, 
140 DATA 35, 32,130, 3, 32,182, 3, 
150 DATA 3, 76,113, 3, 96,152, 48, 
160 DATA 113, 3, 32,216, 3,169, 13, 
170 DATA 164, 21, 24,105, 7,144,193,; 
180 DATA 177, 20,170, 41,127, 32,210, 
190 DATA 41,127,240, 3, 32,210,255, 
200 DATA 10,169, 33, 32,210,255,104,: 
210 DATA 37,208, 78,152, 16, 4,169, 
220 DATA 210,255,169, 32, 32,210,255, 
230 DATA 0,177, 34,170,200,177, 34, 
240 DATA 76,210, 3, 32,166,187, 
250 DATA 32,247, 3,160, 2,177, 34, 
260 DATA 133, 36,136,177, 34,133, 38, 
270 DATA 210,255,200,196, 38,208,246, 
280 IF S <> 20988 THEN PRINT "ERROR U 
290 PRINT "OK" 



21, 196 


, 48, 


208 


o 


1 , 200 


.133, 


34 


,132 


138, 16 


- 7, 


32 


, 191 


6, 32 


,207, 


3 


, 76 


32,210 


,255, 


165 


, 20 


200,176 


. 190, 


160 


, 


255, 200 


,177, 


20 


, 168 


138, 16 


- 17, 


152 


> 48 


104, 76 


. 113, 


3 


, 169 


36, 208 


. 71, 


96 


32 


169, 61 


,208, 


58 


, 160 


168, 138 


32, 


149 


.179 


221, 189 


76, 


30 


171 


133, 37 


136, 


177 


34 


240, 10 


177, 


36 




169, 34 


76, 


210 


255 


N DATA! 


11 - 


END 
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If you run the following program, you will receive the 
output shown below it. 

100 A=5 

110 DEF FNX (Y) = SIN(Y) * COS(Y) 

120 C$ = "PROGRAM" 

130 B* = -101 

140 SYS 828 



A = 5 

X! 

Y = 

C$ ="PR0GRAM" 

B* =-101 



You can also execute the DUMP function in the direct node 
with SYS 828. If you stop a program, you can view the actual 
variable contents and then continue with the program using 
the CONT command. As you see in the above example, user- 
defined functions are indicated by a "!" after the function 
name . 
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9.5 Modified PEEK function 

The following snail machine language program provides 
an elegant way of using the additional RAM storage of the 
Commodore 64. At the same time, it also allows you to read 
the character generator data from BASIC. A few 
clarifications: 

The memory areas from $A000 to $BFFF (40960 to 49151) 
and $K000 to $FFFF (57344 to 65535) are doubly allocated: 
First with 8K BASIC ROM and 8K kernal ROM, respectively, and 
then with 8K of RAM each. These 16K bytes of RAM cannot be 
used from BASIC without modification. POKE commands write 
directly to the RAM, but a read attempt with PEEK always 
reads from the ROM. Here we replace the PEEK function with 
our own USR function. The function must do the following: 
Before the value of a memory location is read, the memory 
configuration must be changed so that the RAM "beneath" the 
ROM is activated. Now the value can be read. Finally, the 
old configuration must be restored. In addition, we would 
like to be able to read the character generator which 
resides from location $D000 to $DFFF. The routine checks to 
see if the PEEK address lies between $D000 and $DFFF. If so, 
the memory configuration will be set such that the character 
generator can be read. The value is then read and the memory 
configuration returned to normal. 
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000 1 033C 










0002 033C 






ADR EDU 


*14 


ESS 










0003 033C 






FACADR EQU 


*B7F7 


0004 033C 






YFAC EQU 


*B3A2 


0005 033C 






ORG 


828 


FER 










0006 033C 


A5 


14 


LDA 


ADR 


0007 033E 


48 




F'HA 




ADDRESS 










0008 033F 


A5 


15 


LDA 


ADR+1 


0009 0341 


48 




PHA 




0010 0342 


20 


F7 B7 


JSR 


FACADR 


TO ADDRESS FORMAT 






0011 0345 


A5 


01 


LDA 


1 


0012 0347 


48 




PHA 




RATION 










0013 0348 


A5 


15 


LDA 


ADR+1 


0014 034A 


C9 


DO 


CMP 


#*D0 


*D000 










0015 034C 


90 


07 


BCC 


RAM 


0016 034E 


C9 


EO 


CMP 


#*E0 


*E000 










0017 0350 


BO 


03 


BCS 


RAM 


0018 0352 


A9 


31 


LDA 


#*31 


ARACTER BENERATOR 






0019 0354 


2C 




BYT 


*2C 


0020 0355 
M 

0021 0357 


A9 


34 


RAM LDA 


#*34 


78 




SEI 




0022 0358 


85 


01 


STA 


1 


ONFIGURATION 








0023 035A 


AO 


00 


LDY 


#0 


0024 035C 


Bl 


14 


LDA 


(ADR) ,Y 


0025 035E 


A8 




TAY 




0026 035F 


68 




PLA 




0027 0360 


85 


01 


STA 


1 


AT I ON 










0028 0362 


58 




CLI 




0029 0363 


68 




PLA 




0030 0364 


85 


15 


STA 


ADR+1 


0031 0366 


68 




PLA 




BACK 










0032 0367 


85 


14 


STA 


ADR 


0033 0369 


4C 


A2 B3 


JMP 


YFAC 


FAC 











;USR - PEEK 
5 INTEGER ADDR 



; CASSETTE BUF 
5 SAVE INTEGER 

5 CONVERT FAC 
5 SAVE CONFIGU 
5 SMALLER THAT 
; GREATER THAN 
; READ FROM CH 
5 READ FROM RA 
5 SET MEMORY C 
5 READ BYTE 
;GET CONFIGUR 

5 GET ADDRESS 
5 CONVERT Y TO 
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The program is stored in the cassette buffer at address 828. 
Once you have entered or loaded the program, the start 
address of the program must be assigned to the USR vector. 
This is done with two POKEs: 

POKE 785, 828 AND 255 
POKE 786, 828 / 256 

For those who do not have an assembler, we have again 
provided a loader program in BASIC, which also initializes 
the USR vector for you. 

100 FOR I = 828 TO 875 

110 READ X : POKE I , X : S=S+X : NEXT 

120 DATA 165, 20, 72,165, 21, 72, 32,247,183,165, 1, 72 

130 DATA 165, 21,201,208,144, 7,201,224,176, 3,169, 49 

140 DATA 44,169, 52,120,133, 1,160, 0,177, 20,168,104 

150 DATA 133, 1, 88,104,133, 21,104,133, 20, 76,162,179 

160 IF S <> 5085 THEN PRINT "ERROR IN DATA!!" : END 

170 POKE 785, 828 AND 255 : POKE 786, 82B/256 

180 PRINT "OK" 

Now, if you want to read from the RAM or character 
generator, you simply replace the PEEK function with the USR 
function. To read the character matrix of a character, for 
example, you could use the following program: 

100 CG=13*4096 

110 A = (PEEK(53248+24) AND 2) * 1024 

120 INPUT "CHARACTER CODE ";C 

130 FOR 1=0 TO 7 

140 PRINT I, USR(CG+A+8*C+I) : NBXT 

150 GOTO 110 
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Line 110 chooses between the upper or lower half of the 
character generator which selects between the upper 
case/graphics set or the upper/lower case set. 

This new "PEEK" function gives you up to 16K of HAM 
which you can use to store data in BASIC or whatever else 
you like. 
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9.6 Multi-tasking on the Commodore 64 

Multi-tasking is a term originally associated with 
mainframe computers and refers to the ability of a computer 
to execute several programs simultaneously. How does 
something like this work? 

Even a mainframe can only do one thing at a time, so 
another trick is used: 

If, for example, the computer is supposed to run five 
programs at once, it will start executing the first the 
program and after a certain length of time (a fraction of a 
second) will stop executing it, save the variables, and 
start executing the next program. This program too will be 
interrupted after a short time and the computer will 
continue executing the next one. Once all of the programs 
have been executed once, the variables from the first 
program are fetched and the execution of this program 
continues. The computer's time is divided up into "time 
slices" among the various programs. The term "time-sharing" 
is also used to describe this. 

In a limited sense, this sort of thing is also possible 
on the Commodore 64. Two programs within the 64 run 
simultaneously: the BASIC interpreter and the so-called 
interrupt service routine which is called and executed 60 
times per second. While your BASIC program is being 
executed, it is being interrupted 60 times a second in order 
to execute this interrupt routine. This routine takes care 
of such things as reading the keyboard. 

Here we can attach our own routine and perform 
additional tasks of our own during the interrupt. One use of 
this might be to output text on the printer. At each 
interrupt a character could be fetched from a buffer and 
sent to the printer. The user could then continue with his 
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BASIC program as usual. 

As an example of this procedure we have written a 
program which displays the time, including tenths of a 
second, on the screen, even while another program is 
running. The program uses the Commodore 64's real-time 
clock. The time is automatically and constantly displayed in 
the upper right-hand corner of the screen. The program is 
written in machine language but can also be entered using 
the BASIC loader program listed after the assembly language 
source code. 



0001 C800 

0002 C800 
SS' , COLOR 

0003 C800 

0004 C800 
PRESS I ON 

0005 C800 

0006 C800 
MMA 

0007 C800 

0008 C800 
RESSION 

0009 C800 
NTITY' 

0010 C800 

0011 C800 
COLOR VALUE 

0012 C800 
RAM 

00 1 3 C800 

0014 C800 

0015 C800 

00 1 6 CBOO 
ECTOR 

0017 C800 

0018 CBOO 
OCK CIA 1 

0019 C800 

0020 CBOO 

0021 C800 

0022 CBOO 

0023 CBOO 
RM 

0024 C800 

0025 C800 AD OE DC 

0026 C803 09 80 



FRMEVL EQU *AD9E 

FRESTR EQU *B6A3 
CHKCOM EQU *AEFD 

CHRSOT EQU *79 
GETBYT EQU *B79E 

ILLQUA EQU *B248 



ADR 
COLOR 



EQU *22 
EQU *2A7 



VIDEO EQU *288 



TEMP 

IRQ 

PNT 



EQU *FB 
EQU *314 
EQU *FB 



IRQVEC EQU *EA31 

CLR EQU *DB00 
TENTHS EQU *DC08 

SECOND EQU TENTHS+1 
MINUTE EQU SECOND+1 
HOURS EQU MINUTE+1 
TRIGER EQU HOURS+3 
SET EQU TRIGER+1 

ORG *C800 
LDA TRIGER 
ORA #*80 



5 TIME DISPLAY 

SSYS AD, 'HHMM 



5 GET BASIC EX 

5 CHECK FOR CO 

5 GET BYTE EXP 
! 'ILLEGAL QUA 

5 STORAGE FOR 
SHI BYTE VIDE 

5 IRQ VECTOR 

', NORMAL IRQ V 

; COLOR RAM 

5 REAL TIME CL 



5 50/60 HZ 

5 SET TIME/ALA 



:50 HZ MODE 
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0027 


C805 


8D 


OE 


DC 


STA 


TRISER 


0028 


C808 


AD 


OF 


DC 


LDA 


SET 


0029 


C80B 


29 


7F 




AND 


#*7F 


0030 


C80D 


8D 


OF 


DC 


STA 


SET 


0031 


CB10 


20 


79 


00 


JSR 


CHRBOT 


ODE? 














0032 


C813 


FO 


65 




BEQ 


CHGIRQ 


0033 


C815 


20 


FD 


AE 


JSR 


CHKCOM 


0034 


C818 


20 


9E 


AD 


JSR 


FRMEVL 


0035 


C81B 


20 


A3 


B6 


JSR 


FRESTR 


0036 


C81E 


C9 


06 




CMP 


#6 


0037 


C820 


DO 


6B 




BNE 


ILL 


TITY 














0038 


C822 


AO 


00 




LDY 


#0 


0039 


C824 


Bl 


22 




LDA 


(ADR) ,Y 


0040 


C826 


38 






SEC 




0041 


C827 


E9 


30 




SBC 


#'0' 


0042 


C829 


C9 


03 




CMP 


#3 


0043 


C82B 


BO 


60 




BCS 


ILL 


0044 


C82D 


OA 






ASL 




0045 


C82E 


OA 






ASL 




0046 


C82F 


OA 






ASL 




0047 


CB30 


OA 






ASL 




0048 


C831 


85 


FB 




STA 


TEMP 


0049 


C833 


CB 






I NY 




0050 


C834 


Bl 


22 




LDA 


<ADR),Y 


0051 


CB36 


38 






SEC 




0052 


C837 


E9 


30 




SBC 


#'0' 


0053 


C839 


C9 


OA 




CMP 


#10 


0054 


C83B 


BO 


50 




BCS 


ILL 


0055 


C83D 


05 


FB 




ORA 


TEMP 


0056 


C83F 


DO 


04 




BNE 


NOTNUL 


0057 

M 

0058 


C841 


A9 


92 




LDA 


#*92 


CB43 


DO 


OF 




BNE 


SETSTD 


0059 


CB45 


C9 


24 




NOTNUL CMP 


#*24 


0060 


C847 


BO 


44 




BCS 


ILL 


0061 


C849 


C9 


13 




CMP 


#*13 


0062 


C84B 


90 


07 




BCC 


SETSTD 


0063 


C84D 


38 






SEC 




0064 


C84E 


F8 






SED 




0065 


C84F 


E9 


12 




SBC 


#*12 


0066 


C851 


D8 






CLD 




0067 


C852 


09 


80 




ORA 


#*80 


0068 


C854 


8D 


OB 


DC 


SETSTD STA 


HOURS 


0069 


C857 


20 


FD 


ce 


JSR 


GET59 


0070 


C85A 


8D 


OA 


DC 


STA 


MINUTE 


0071 


C85D 


20 


FD 


CB 


JSR 


SET59 


0072 


C860 


8D 


09 


DC 


STA 


SECOND 


0073 


C863 


A9 


00 




LDA 


#0 


0074 


C865 


8D 


08 


DC 


STA 


TENTHS 


0075 


C868 


20 


79 


00 


JSR 


CHRGOT 


0076 


C86B 


FO 


OD 




BEQ 


CHGIRQ 


0077 


C86D 


20 


FD 


AE 


JSR 


CHKCOM 



5 SET TIME 

5 ADDITIONAL C 

; SWITCH CLOCK 

;GET STRING 
", PARAMETER 
;6 CHARACTERS 

; ILLEGAL QUAN 



!T0 HEX 



5 12 O'CLOCK P 



5 SET PM 

5 GET MINUTES 

5 START CLOCK 
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0078 


C870 


20 


9E 


B7 


JSR 


GETBYT 


0079 


C873 


EO 


10 




CPX 


#16 


0080 


C875 


BO 


16 




BCS 


ILL 


0081 


C877 


BE 


A7 


02 


STX 


COLOR 


ODE 














0082 


C87A 


78 






CHGIRQ SEI 




VECTORS 












0083 


C87B 


AD 


14 


03 


LDA 


IRQ 


0084 


C87E 


49 


Al 




EOR 


#*A1 


TIMIRQ 












0085 


C880 


BD 


14 


03 


STA 


IRQ 


0086 


C883 


AD 


15 


03 


LDA 


IRQ+1 


0087 


C886 


49 


22 




EOR 


#*22 


TIMIRQ 












0088 


C888 


BD 


15 


03 


STA 


IRQ+1 


0089 


C88B 


5B 






CLI 




0090 


C88C 


60 






RTS 




0091 


C88D 


4C 


48 


B2 


ILL JMP 


ILLQUA 


0092 


C890 












INE 














0093 


C890 


AS 


FB 




TIMIRQ LDA 


PNT 


0094 


C892 


4B 






PHA 




0095 


C893 


A5 


FC 




LDA 


PNT+1 


0096 


C895 


48 






PHA 




0097 


C896 


AD 


B8 


02 


LDA 


VIDEO 


VIDEO RAM 










0098 


C899 


85 


FC 




STA 


PNT+1 


0099 


C89B 


A9 


00 




LDA 


#0 


0100 


C89D 


85 


FB 




STA 


PNT 


I DEO 


RAM 












0101 


C89F 


AO 


IE 




LDY 


#30 


0102 


C8A1 


AD 


OB 


DC 


LDA 


HOURS 


0103 


C8A4 


C9 


12 




CMP 


#*12 


0104 


CBA6 


FO 


11 




BEQ 


ZEROCK 


0105 


C8A8 


C9 


80 




CMP 


#*80 


1 06 


C8AA 


90 


OF 




BCC 


STDOUT 


0107 


C8AC 


29 


7F 




AND 


#*7F 


0108 


CBAE 


C9 


12 




CMP 


#*12 


0109 


C8B0 


FO 


09 




BEQ 


STDOUT 


0110 


C8B2 


F8 






SED 




0111 


C8B3 


18 






CLC 




0112 


C8B4 


69 


12 




ADC 


#*12 


0113 


C8B6 


DS 






CLD 




0114 


CBB7 


DO 


02 




BNE 


STDOUT 


0115 


C8B9 


A9 


00 




ZEROCK LDA 


#0 


0116 

B 

0117 


C8BB 


20 


DB 


CB 


STDOUT JSR 


PRINT 


C8BE 


AD 


OA 


DC 


LDA 


MINUTE 


0118 


CBC1 


20 


DB 


CB 


JSR 


PRINT 


TES 














0119 


C8C4 


AD 


09 


DC 


LDA 


SECOND 


0120 


C8C7 


20 


DB 


CB 


JSR 


PRINT 


NDS 














0121 


C8CA 


AD 


08 


DC 


LDA 


TENTHS 


1 22 


C8CD 


09 


30 




ORA 


#'0' 
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5 COLOR 

5 SAVE COLOR C 
; EXCHANGE IRQ 

5#<IRQVEC EOR 
;#>IRQVEC EOR 



5 DISPLAY ROUT 

5 SAVE POINTER 
;HI6H BYTE OF 

5 POINTER TO V 
S30TH COLUMN 

HAM 



3 DISPLAY HOUR 



! DISPLAY MINU 



; DISPLAY SECO 
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0123 


C8CF 


20 


F3 CB 


JSR 


PR I NT 1 


HS 












0124 


C8D2 


6B 




PLA 




0125 


C8D3 


85 


FC 


STA 


PNT+1 


0126 


C8D5 


68 




PLA 




BACK 












0127 


C8D6 


85 


FB 


STA 


PNT 


0128 


C8D8 


4C 


31 EA 


JMP 


IRQVEC 


0129 


C8DB 


48 




PRINT PHA 




0130 


C8DC 


29 


FO 


AND 


#*F0 


0131 


C8DE 


4A 




LSR 




0132 


C8DF 


4A 




LSR 




0133 


C8E0 


4A 




LSR 




0134 


CBE1 


4A 




LSR 




0135 


C8E2 


IB 




CLC 




0136 


CBE3 


69 


30 


ADC 


#'0' 


0137 


C8E5 


20 


F3 C8 


JSR 


PR I NT 1 


0138 


C8EB 


68 




PLA 




0139 


C8E9 


29 


OF 


AND 


#*0F 


0140 


C8EB 


IB 




CLC 




0141 


C8EC 


69 


30 


ADC 


#'0' 


0142 


C8EE 


20 


F3 C8 


JSR 


PRINT1 


0143 


C8F1 


A9 


3A 


LDA 


#' : ' 


0144 


C8F3 


91 


FB 


PR I NT 1 STA 


(PNT) ,Y 


0145 


C8F5 


AD 


A7 02 


LDA 


COLOR 


0146 


C8F8 


99 


00 D8 


STA 


CLR,Y 


0147 


C8FB 


C8 




I NY 




0148 


C8FC 


60 




RTS 




0149 


C8FD 


C8 




GET59 I NY 




0150 


C8FE 


Bl 


22 


LDA 


<ADR) ,Y 


0151 


C900 


38 




SEC 




0152 


C901 


E9 


30 


SBC 


#'0' 


0153 


C903 


C9 


06 


CMP 


#6 


0154 


C905 


BO 


86 


ILL1 BCS 


ILL 


0155 


C907 


OA 




ASL 




0156 


C90B 


OA 




ASL 




0157 


C909 


OA 




ASL 




0158 


C90A 


OA 




ASL 




0159 


C90B 


85 


FB 


STA 


TEMP 


0160 


C90D 


CB 




I NY 




0161 


C90E 


Bl 


22 


LDA 


<ADR> ,Y 


0162 


C910 


38 




SEC 




0163 


C911 


E9 


30 


SBC 


tt'O' 


0164 


C913 


C9 


OA 


CMP 


#10 


0165 


C915 


BO 


EE 


BCS 


ILL1 


0166 


C917 


05 


FB 


ORA 


TEMP 


0167 


C919 


60 




RTS 





5 DISPLAY TENT 



iGET POINTER 



5 TO OLD IRQ 
; DISPLAY 



5 CHARACTER 
SAND COLOR 
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1 00 


FOR I 


= 51200 TO 


51481 




no 


READ 


X : POKE I,X 


; S=S+X : NEXT 




120 


DATA 


173, 14,220, 


9,128,141, 14,220,173, 


15,220, 41 


1 30 


DATA 


127,141, 15, 


220, 32,121, 0,240,101, 


32,253,174 


140 


DATA 


32, 158, 173, 


32,163,182,201, 6,208, 


107, 160, 


150 


DATA 


177, 34, 56, 


233, 48,201, 3,176, 96, 


10, 10, 10 


160 


DATA 


10,133,251, 


200,177, 34, 56,233, 48, 


201, 10,176 


170 


DATA 


80, 5,251, 


208, 4,169,146,208, 15, 


201, 36,176 


180 


DATA 


68,201, 19, 


144, 7, 56,248,233, 18, 


216, 9,128 


190 


DATA 


141, 11,220, 


32,253,200,141, 10,220, 


32,253,200 


200 


DATA 


141, 9,220, 


169, 0,141, 8,220, 32, 


121, 0,240 


210 


DATA 


13, 32,253, 


174, 32,158,183,224, 16, 


176, 22,142 


220 


DATA 


167, 2,120, 


173, 20, 3, 73,161,141, 


20, 3, 173 


230 


DATA 


^1 T 7"^ 


34,141, 21, 3, 88, 96, 


76, 72,178 


240 


DATA 


165,251, 72, 


165,252, 72,173,136, 2, 


133,252,169 


250 


DATA 


0,133,251, 


160, 30,173, 11,220,201, 


18,240, 17 


260 


DATA 


201, 128, 144 


15, 41,127,201, 18,240, 


9,248, 24 


270 


DATA 


105, 18,216 


208, 2,169, 0, 32,219, 


200,173, 10 


280 


DATA 


220, 32,219 


200,173, 9,220, 32,219, 


200, 173, 8 


290 


DATA 


220, 9, 48 


32 , 243 , 200 , 1 04 , 1 33 , 252 , 


104,133,251 


300 


DATA 


76, 49,234 


72, 41,240, 74, 74, 74, 


74, 24,105 


310 


DATA 


48, 32,243 


200,104, 41, 15, 24,105, 


48, 32,243 


320 


DATA 


200, 169, 58 


,145,251,173,167, 2,153, 


0,216,200 


330 


DATA 


96,200, 177 


, 34, 56,233, 48,201, 6, 


176,134, 10 


340 


DATA 


10, 10, 10 


,133,251,200,177, 34, 56, 


233, 48,201 


350 


DATA 


10,176,238 


, 5,251, 96 




360 


IF S 


<> 32970 THEN PRINT "ERROR IN DATA! 


" ■ END 


370 


PRINT "OK" 
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Once you have loaded the program, the clock can be turned on 
by entering the following command: 

SYS 51200, "HHMMSS", COLOR 

where "HHMMSS" is the current time (Hours, Minutes, Seconds) 
and COLOR is the color code for the time display (from to 
15). To set the clock to 2:30 P.M. (since this is a 24-hour 
clock we must enter 14:30) and 15 seconds, with the time 
displayed in yellow, we would use the following command: 

SYS 51200, "143015", 7 

The current time will now appear in the upper-right corner 
of the display with hours, minutes, seconds, and tenths of 
seconds. To turn the display off, enter 

SYS 51200 

To turn it back on again without resetting the time or 
color, simply type 

SYS 51200 

and the time will appear again. 



In principle there are two methods for inserting the 
second "job" in multi-tasking: 

The first option is to use the system interrupt routine 
which is called every sixtieth of a second. This method is 
used for our routine to display the time. This is done by 



272 



Tricks & Tips 



changing the interrupt vector so that it points to our 
routine. Our routine then ends with a jump to the original 
interrupt routine so that the computer can complete its 
operations. 

The second method gives the user routine its own 
interrupt. This could be done with the output to the 
printer, for example. The BUSY line of the printer could be 
used as the interrupt source. Each time the printer is ready 
to receive a character it initiates an interrupt. The 
interrupt routine sends a character to the printer then 
continue with the normal program. Once the printer has 
printed the character, it generates another interrupt, 
forcing the computer to send it another character. The user 
of the computer notices nothing of this. 

You will need to know quite a bit about the operating 
system of the 64 to implement these routines, information 
which you will find in the book The Anatomy of the Commodore 
64. 
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9.7 POKEs and zero page 

As you have surely noticed, there are various addresses 
which are of use in programming in BASIC as well as in 
machine language. Here is a short list of some of the 
addresses (all of the pointers are stored in LSB, MSB 
order) : 



Address: 



(possible) Application: 



0000-0001 



A specific area of memory can be 
switched on or off by POKEing to one or 
both of these locations. 



0043-0044 



These addresses point to the start of 
the user storage, the start of the BASIC 
program. PEEK(43)+256*PEEK(44) will show 
you this value. You can set the 
beginning higher by poking to these 
locations and use the lower memory area 
for the rest of the sprites. 



0045-0046 



In these addresses you find the start of 
the numeric variable table. This table 
usually lies directly behind the BASIC 
storage. 



0047-0048 



Contain the address of the start of the 
array storage. All fields (arrays) are 
placed in this area. 



0049-0050 



The contents of these addresses point to 
the end of the array storage. 
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0051-0052 



In these locations is the pointer to the 
start of the BASIC string variables. 



0055-0056 



Pointer to the end of the BASIC RAM. By 
changing the contents of these addresses 
it is possible to protect a specific 
section of RAM (above the BASIC storage) 
against overwriting. This allows you to 
reserve this protected memory for a 
machine language program and still have 
the RAM from $C000 to $CFFF free for 
other purposes. For example: POKE 55,0 : 
POKE 56,64 sets the end of BASIC RAM to 
$4000. 



0115-0138 



The CHRGET routine resides at these 
addresses. This routine gets the 
characters from the individual BASIC 
lines. In order to write BASIC 
expansions, this routine must be 
altered. 



0203 



The code for the currently pressed key 
is stored in this address. If this 
address contains 64, it means that no 
key was pressed. 
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If you want to learn more about the "insides" of the 
Commodore 64, we recommend the Abacus book The Anatomy of 
the Commodore 64. There you will learn more about 
programming in machine language and the construction of the 
64' s RAM and ROM. We encourage you to experiment with the 
various addresses of the Commodore 64. There is much hidden 
in your computer — it only needs to be drawn forth. 
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ODORE-64 



HACKERS ONLY! 



The ultimate source 
for Commoddre-64 
Computer information 




OTHER BOOKS AVAILABLE. SOON 



THE ANATOMY OF THE C-64 

is the insider's guide to the lesser known features o> 
the Commodore $4 Includes chapters on graphics 
sound synthesis, input/output control, sample programs 
using the kernal routines, more For those who need to 
know, it includes the complete disassembled and 
documented ROM listings 
ISBN-0-91 6439-00-3 300no S19.9S 

THE ANATOMY OF THE 1541 
DISK DRIVE 

unravels the mysteries ot using the misunderstood disk 
drive Details ihe use ot program, sequential, relative 
and direct access tiles Include many sample programs 
FILE PROTECT. DIRECTORY DISK MONITOR, BACKUP 
MERGE. COPY, others Describes internals of DOS with 
completely disaddembied and commented listings of the 
1541 ROMS 
ISBNO-916439-01-1 320pp $19.95 

MACHINE LANGUAGE FOR C-64 

is aimed at those who want to progress beyond BASIC 
Write taster, more memory efficient programs in machine 
language Test is specifically geared to Commodore 64 
Learns all 6510 instructions includes listings lor 3 lull 
length programs ASSEMBLER. DISASSEMBLER and 
amaimg 6510 SIMULATOR so you can see the opera 
Iron of the 64 
ISBN-0-91 64 39-02- X 200pp $14.95 

TRICKS & TIPS FOR THE C-64 

is a collection of easytouse programming techniques tor 
the '64 A perfect companion lor those who have run 
up against those hard to solve programming problems 
Covers advanced graphics, easy data input. BASIC 
enhancement. CP/M cartridge on the '64. POKEs. user 
flelmed character sels. |oystick/mouse simulation, trans 
lemng dala between comulers, more A treasure chesl 
ISBN-0-91 6439-03-8 250pp $19.95 



GRAPHICS BOOK FOR 
THE C-64 

takes you from the fundamentals of graphic to 
advanced topics such as computer aided design Shows 
you how to program new character sets, move sprites, 
draw in HIRES and MULTICOLOR, use a lightpen. 
handle IROs. do 30 graphics, projections, curves and 
animation Includes dozens of samples 
ISBN-0-9 1 6439-05-4 280pp $19.95 

ADVANCED MACHINE 
LANGUAGE FOR THE C-64 

gives you an intensive treatment ot the powerful 64 
features Author Lothar Englisch delves into areas such 
as interrupts, the video controller, the timer, the real 
time clock parallel and serial I/O extending BASIC and 
tips and tricks from machine language, more 
ISBN-0-9 16439-06-2 200pp $14.95 

IDEAS FOR USE ON YOUR C-64 

is lor those who wonder what you can do with your '64 
it is written tor the novice and presents dozens oi 
program listing the many, many uses for your 
computer Themes include auto expenses, electronic 
calculator recipe file, stock lists, construction cost 
estimator personal health record diet planner store 
window advertising, computer poetry party invitations 
and more 
ISBN-0-9 1 6439-07-0 200pp $ 1 2.95 

PRINTER BOOK FOR THE C-64 

imaiiy simplifies your understanding of the 1525. 
MPS/801. 1520. 1526 and Epson compatible printers 
Packed with examples and ulilily programs, you'll learn 
now lo make nardcopy ol text and graphics, use secon- 
dary addresses, plot m 3 0. and much more Includes 
commented listing of MPS 801 ROMs 
ISBN-0-91 6439-08-9 350pp. $19.95 



SCIENCE/ENGINEERING 
ON THE C-64 

is an introduction to the world of computers in science 
Oescnbes variable types, computational accuracy, 
various sort alognthms Topics include linear and 
nonlinear regression. CHI-square distribution. Fourier 
analysis, malnx calculations, more Programs from 
chemistry, physics, biology, astronomy and electronics 
Includes many program listings 
ISBN-0-91 6439-09-7 250pp $19.95 

CASSETTE BOOK FOR THE C-64 

(or Vic 20) contains all the inlormation you need to 

know about using and programming the Commodore 
Dalasette Includes many example programs Also con- 
tains a new operating system for fast loading, saving 
and findinq of liles 
ISBN-0-9 1643904-6 180pp. $12.95 

DEALER INQUIRIES ARE INVITED 

IN CANADA CONTACT: 

The Book Centre, 1140 Baaulac Street 
Montreal, Quebec H4R1R8 Phone: {5 id) 322-4154 

AVAILABLE AT COMPUTER STORES, OR WRITE: 

Abacus Bl Software 

P.O. BOX 721 1 GRAND RAPIDS, Ml 49510 

EiclueWe 0.8. DATA BECKER Publisher* 
For postage A handling, add J4.00 (U.S. and ^JKJ - " 
Canada), addS6.00forforeign. Make payment pjajOES 
in U.S. dollars by check, money order of 
charge card. (Michigan Residents add 4% 
sales tax.) 



FOR QUICK SERVICE PHONE (616) 241-5510 

Commodore 64 it a rtg. T.M. ot Commodore Buamtu Machines 



SERIOUS 64 SOFTWARE 

INDISPENSIBLE TOOLS FOR YOOF* GOMMObiRi SS« 
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PASCAL-64 

This full compiler produces fast 6502 
machine code. Supports major data Types: 
REAL. INTEGER. BOOLEAN. CHAR, 
multiple dimension arrays. RECORD, FILE. 
SET and pointer. Offers easy string handl- 
ing, procedures for sequential and relative 
data management and ability to write IN- 
TERRUPT routines in Pascal! Extensions 
included for high resolution and sprite 
graphics. Link to ASSEM/MON machine 
language. DISK $39.95 

DATAMAT-64 

This powerful data base manager handles 
up to 2000 records per disk. You select the 
screen format using up to 50 fields per 
record. DATAMAT 64 can sort on multiple 
fields in any combination. Complete report 
writing capabilities to all COMMODORE or 
ASCII printers. D|SK $39 93 

Available November 

TEXTOMAT-64 

This complete word processor displays 80 
columns using horizontal scrolling. In 
memory editing up to 24,000 characters 
plus chaining of longer documents. 
Complete text formatting, block operations, 
form letters, on-screen prompting. 

Available November DISK $39.95 



ASSEMBLER / 
MONITOR-64 

This complete language development 
package features a macro assembler and 
extended monitor. The macro assembler 
offers freofoim input, complete assembler 
listings with symbol table (label), condi - 
tional assembly 

The extended monitor has all the standard 
commands plus single step, quick trace 
breakpoint, bank switching and more. 
DISK S39.95 

BASIC-64 

This is a full compiler that won't break your 
budget. Is compatible with Commodore 64 
BASIC. Compiles to last machine code. 
Protect your valuable source code by com- 
piling with BASIC 64. 



Available December 



DISK $39.95 



ADA TRAINING COURSE 

This package is an introduction to ADA. the 
official language ot the Department of 
Defense and the programming language of 
the future. Includes editor, syntax 
checker/compiler and 110 page step by 
step manual describint the language. 
Available November 

DISK $79.95 



OTHER NEW SOFTWARE COMING SOONI 

All software products featured above 
have inside disk storage pockets, 
and heavy 3-ring-binder for maxi- 
mum durability and easy reference. 




DEALER INQUIRIES INVITED 

AVAILABLE AT C OMPUTER STORES, OH WRITE: 

Abacus IIS Software 

P.O. BOX 721 1 GRAND RAPIDS, Ml 49510 

Exclusive U.S. DATA BECKER PubBshere 
For pottage & handling, add *4.00 (U.S. and 
Canada), add 16.00 lor foreign. Make payment 
in U.S. dollars by chack. money order ot 
charge card. (Michigan R*#id«nta add 4% 
sales (ax.) 



FOR QUICK SERVICE PHONE (016) 241-5510 



Commodora 64 rj ■ rig. T.M. of Convnodora BuWMw* UachMM 



GET THE MOST OUT OF YOU 
WITH ABACUS SOFTWARE 





XREF-64 BASIC CROSS REFERENCE 

This loo! allows you lo locate those hard-io-lind variables in your programs. 
Cross-references all tokens (key words), variables and constants in sorted 
order. You can even add you own lokens from other software such as 
ULTRABASIC or VICTREE. Listings to screen or all ASCII printers. 

DISK $17.95 

SYNTHY-64 

This is renowned as the lines! music synthesizers available at any price. 
Others may have a lot ol onscreen frills, but SYNTHY-64 makes music better 
than them all. Nothing comes close to the performance ol this package 
Includes manual with tutorial, sample music 

DISK $27.95 TAPE $24.95 

ULTRABASIC 64 

This package adds SO powerful commands (many found in VIDEO BASIC, 
above) • HIRES. MULTI. DOT. DRAW. CIRCLE. BOX. FILL. JOY. TURTLE. 
MOVE. TURN. HARD. SOUND. SPRITE. ROTATE, more All commands 
are easy to use. Includes manual with two-part tutorial and demo. 

DISK $27.95 TAPE S24.9S 

CHARTPAK-64 

This finest charting package draws pie. bar and line charts and graphs from 
your data or DIF. Multiplan and Busicalc hies. Charts are drawn in any of 
2 formats. Change format and build another chart immediately. Hardcopy 
10 MPS801. Epson. Okidata. Prowriler. Includes manual and tutorial 

OISK $42.95 

CHARTPLOT64 

Same as CHARTPACK-64 for highest quality output to most popular pen 
plotters. DISK $84.95 

DEALER INQUIRIES ARE INVITED 



CADPAK-64 

This advanced design package has outstanding features - Iwo Hires 
screens; draw LINES. RAYs. CIRCLES. BOXEs; freehand DRAW; FILL with 
patterns: COPY areas; SAVE/RECALL pictures, deline and use intricate 
OBJECTS, msen text on screen; UNDO last function. Requires high quality 
lightpen. We recommend McPen. Includes manual with tutorial. 
DISK $49.95 McPen lightpen $49.95 

MASTER 64 

This professional application development package adds 100 powerful 
commands to BASIC including last ISAM indexed files: simplified yel 
sophisticated screen and printer management, programmer's aid: BASIC 
4,0 commands; 22-digit arithmetic, machine language monitor. Runtime 
package for royalty-free distribution of your programs. Includes 150pp. 
manual. 

DISK $39.98 
VIDEO BASIC-64 

This superb graphics and sound development package lets you write soft- 
ware for distribution without royalties. Has hires, multicolor, sprite and 
turtle graphics; audio commands tor simple or complex music and sound 
elfects. Iwo sizes ol hardcopy lo most dot matrix printers; game leatures 
such as sprite collision detection, lightpen. game paddle, memory 
management for multiple graphics screens, screen copy. etc. 

DISK $59.95 

TAS-64 FOR SERIOUS INVESTORS 

This sophisticated charting system plots more than 1 5 technical indicators 
on split screen, moving averages; oscillators; trading brands; least squares; 
trend lines, superimpose graphs: five volume indicators; relative strength; 
volumes, more Online data collection DJNR/S or Warner. 1 75pp. manual. 
Tutorial OISK 984.95 



FREE CATALOG Ask for a listing of other 
Abacus Software for Commodore-64or Vlc-20 

DI8TRI6UT0RS 

Gnat Iritale: liliulrn: Fnfipi: "** ZuUad: 

AOAMSOFT Mar. SmtCM MICRO APPLICATION SSSffiinSfffflS 1 

H Ndrwkjn Avi. AVOvUlunn 10 147 Avanua PauWoumar SHSjETuJli. 

Rochdila. Lanca. Brutal 1160, Balgilm RuiUI Milmiliori. Franca ™™2K"" om 

706-524304 2460-1447 1732-9254 J3-6MB6 

Wot Oiimany: Saredta: Australia: 

DATA BECKER TIM. TRADING. CW ELECTRONICS 

Man<rlng«atr 30 P0 516 416 login Road 

4000 Duualdrjrt 34300 AlrnM SnaMna. Ousans 

0211/312065 476.12304 07397«60e 

Commodore 84 is a reg. T.M. of Commodore Business Machines 



AVAILABLE AT COMPUTER STORES, OR WRITE: 

Abacus III Software 

P.O. BOX 7211 GRAND RAPIDS. MICH. 49510 
For postage 4 handling, add S4.00 (U.S. and Canada), add 16.00 
for foreign. Make payment In U.S. dollars by chock, money order 
or charge card. (Michigan Residents add 4% salts tax). 

FOR QUICK SERVICE PHONE 616-241-5510 
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This collection of easy-to-use programming techniques 
is "required" reading for every '64 owner. We present 
advanced graphics, easy data input, enhanced BASIC 
commands, CP/M for the '64, POKES and other 
routines and much more. We include dozens of ready- 
to-use hints, suggestions and programs. 
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a I *OU C*N COUNT ON 

Abacus iiiiiiiiiil 
Software 

P.O. BOX 7211 GRAND RAPIDS, MICH. 49510 PHONE 616-241-5510 
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